Warum?
31.03.2009 12:02:37
Herbert
Es soll die Spalte A nach Werten mit der Schritgrösse14 durchsuchen, danach diese kopieren und 7 Spalten weiter rechts wieder einfügen.
Bis jetzt habe ich folgendes Makro, welches aber irgendwie nicht funktioniert:
Sub Makro2()
Dim x As Integer
a = 5
For x = 1 To 1000
If Cells(1, x).Font.Size = 14 Then
Cells(1, x).Select
Copy.Selection
Cells(7, x).Select
past.Selection
Else
Next x
End Sub
Vielen Dank für eure Hilfe!
Gruss Herbert