ich habe folgendes Makro aufzeichnen lassen und würde es nun gerne auch auf andere Zeilen anwenden lassen können, d.h. alle Zellen müssen dynamisch adressiert werden.
Wie stelle ich das an?
Hier ist mein Makro, die Startzelle ist B6:
Sub MakroFinal() ' ' MakroFinal Makro ' Makro am 27.11.2007 von hennmic aufgezeichnet ' ' Range("B6").Select Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Rows("9:9").Select Selection.Cut Rows("6:6").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 9 Range("J6:P6").Select Selection.Cut ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 1 Range("C7").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 16 Range("Q6:V6").Select Selection.Cut ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("C8").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 13 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 16 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 18 Range("W6:AF6").Select Selection.Cut ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("J6").Select ActiveSheet.Paste End Sub
Ich glaube, dass ich auch die Zeilen mit "ActiveWindow.ScrollColumn = X" löschen kann, bin mir auber nicht sicher.
Ich verwende Office 2003.
Dieser Beitrag wurde von MiG[Anubis bearbeitet: 27. November 2007 - 14:49