Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen

08.06.2004 17:43:40

Richard

Hi!
Wer weiss, wie man die Zeilen auf einmal löschen kann, wenn in der Spalte A eine 0 steht. (Zu überprüfender Zeilenbereich: 8:288
Danke für Eure Hilfe
Ciao,
Richard

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen löschen

08.06.2004 17:48:26

ANdreas
DANKE FÜR DIE HILFE!! Ciao Richard

Richard
AW: DANKE FÜR DIE HILFE!! Ciao Richard

08.06.2004 18:12:25

ANdreas

AW: Zeilen löschen

08.06.2004 17:48:26

ANdreas

Hallo Richard,
hier mal ein Beispielmakro dafür:


Sub NullZeilenLoeschen()
Dim i%
For i = 288 To 8 Step -1
If Cells(i, 1).Value = 0 Then Rows(i).Delete
Next i
End Sub

Viel Spaß,
Andreas

DANKE FÜR DIE HILFE!! Ciao Richard

Richard

Danke

AW: DANKE FÜR DIE HILFE!! Ciao Richard

08.06.2004 18:12:25

ANdreas

Hallo Richard,
noch eine kleine Ergänzung, weil das Makro auch Zeilen löscht, wenn in A1 gar nichts steht.
Dann so:


Sub NullZeilenLoeschen()
Dim i%
For i = 288 To 8 Step -1
If Cells(i, 1).Value = 0 And Not IsEmpty(Cells(i, 1)) Then Rows(i).Delete
Next i
End Sub

Andreas

Forumthread: Zeilen löschen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread