Zeilenlöschen



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Zeilenlöschen
von: Thomas
Geschrieben am: 04.06.2002 - 10:43:18

Hallo Zusammen,

suche ein Makro, dass eine Zeile löscht,
wenn zum Bsp. in Spalte J eine 0 steht.

Danke

Thomsa


nach oben   nach unten

Re: Zeilenlöschen
von: @lex
Geschrieben am: 04.06.2002 - 10:51:24

Hallo Thomsa !
Ohne zu testen:
Sub Löschen()
Dim iRow, iCount As Integer
iRow = Cells(Rows.Count,10).End(xlup).Row
For iCount = iRow to 1 Step -1
If Cells(iCount,10).Value = "0" Then Rows(iCount).Delete
Next iCount


VG,
Alex

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellbezug VBA"