Makro zum Löschen von Zeilen
08.11.2004 09:54:32
Zeilen
Aus einer sehr grossen Excel-Tabelle (bis etwa Zeile 60.000) möchte ich jede 44ste Zeile löschen.
Mit einem Makro müsste das ja eigentlich möglich sein, aber ich habe keine Ahnung, wie man so ein Makro programmiert.
Das Aufzeichnen eines Makros und das Löschen der ersten Zeilen per Hand hat folgendes ergeben:
Sub Makro1()
Rows("1:1").Select
Selection.ClearContents
Rows("45:45").Select
Selection.ClearContents
Rows("89:89").Select
Selection.ClearContents
Rows("133:133").Select
End Sub
Das Muster ist ja klar zu erkennen, nur möchte ich nicht alle Vielfachen von 44 in so eine Zeile per Hand eintragen.
Bestimmt kann man da doch eine entsprechende Schleife erstellen?
Wäre klasse, wenn jemand den passenden Code posten könnte! :o)
Vielen Dank schonmal
Kai-J.