MS-Office

Pius · 5. Mai 2006

Hallöchen.
Ich will mich hier mal als MS-Office Helferlein zur verfügung stellen.
Excel, Access, Word ist mein Fachgebiet.
Steuerelemente, VBA, Automatisierung, ...

Einfach fragen, wenn ihr was braucht

Pius · 10. Mai 2006

Hier z.B. habe ich Umsatzzahlen die tägl. Rechts nebeneinander geschrieben wurden untereinander gepackt, damit man sie nach Access importieren kann.

Code

Private Sub CommandButton1_Click()
x = 6
y = 1
a = 1
b = 1
Do While y < 5
Cells(y, x).Select
Selection.Cut Destination:=Cells(b, a)
x = x + 1
b = b + 1
If x = 22 Then
x = 6
y = y + 1
a = a + 1
b = 1
End If
Loop
End Sub

Alles anzeigen

Nur als Beispiel, damit ihr wisst was ich meine mit helfen.
Alles was immer gleicher Arbeitsschritt ist, kann automatisiert werden.

Teilen