Jede 19.Zeile nicht löschen
30.11.2004 10:53:52
Christian
vor 3Jahre habe ich leider jobbedingt VBA vernachlässigt,
jetzt bräuchtechte ich aber u.a. ein kleines altes Makro und
irgendwas hakt.
Ich möchte jede 19. Zeile oder evtl. jede 19.-21. Zeile in einem Excel-Tabellenblatt nicht löschen - irgendwas hakt!?
Mein Ansatz!?
Sub Jede19ZeileNichtLöschen()
Dim i As Integer
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(i & ":" & i + 21).Delete
Next i
End Sub
Betsen Dank & gruß,
Christian