Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen

10.02.2004 17:34:39

Tom

Hallo,
ich möchte gerne jede 2.Zeile automatisch löschen
--> entweder alle ungeraden (1,3,5,7, ...) oder alle geraden (2,4,6,8 ...)
Wer hat ne Lösung?
danke vorab!
Tom

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen löschen

10.02.2004 17:39:39

xXx

AW: Zeilen löschen

10.02.2004 17:39:39

xXx

Hallo,
hiermit bist du frei:


Sub Jede_Xte_Zeile_löschen()
Application.ScreenUpdating = False
Zeile1 = Val(InputBox("Beginn in Zeile?"))
X = Val(InputBox("Jede wievielte?"))
Do While Not (IsEmpty(Cells(Zeile1, 1)))
Rows(Zeile1).Delete
Zeile1 = Zeile1 + X - 1
Loop
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo

Forumthread: Zeilen löschen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread