Zeile löschen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Zeile löschen
von: Stephan
Geschrieben am: 15.05.2002 - 11:52:43

Hallo zusammen,

Ich möchte in einer for-next-Schleife eine bestimmte Zeile löschen, in der eine Zelle einen bestimmten Wert hat.
Sieht ungefähr so aus:

for i = 1 to 100
if cells(i, 2) = "0" then
' jetzt möchte ich die Zeile i löschen
end if
next i

Wie geht das?


nach oben   nach unten

Re: Zeile löschen
von: Steph@n
Geschrieben am: 15.05.2002 - 12:04:05


Hallo Stephan,

probiers mal so:

for i = 1 to 100
if cells(i, 2) = "0" then

Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp

end if
next i

Gruss Stephan

nach oben   nach unten

Re: Zeile löschen
von: Martin Beck
Geschrieben am: 15.05.2002 - 15:18:02

Hallo Stephan(s),

wenn Zeilen per Schleife gelöscht werden sollen, sollte man unbedingt von unten nach oben arbeiten. Wenn hier z.B. mehrere Zeilen in der 2. Spalte 0 stehen haben, werden durch Stephans Code nicht alle Zeilen gelöscht. Verwende


Sub Nullzeilen_löschen()
For i = 100 To Step -1
    If Cells(i, 2) = "0" Then
        Rows(i).Delete
    End If
Next i
End Sub

Je nachdem, auf was Du prüfst, müssen die Hochkommata in "0" noch gelöscht werden.

Gruß
Martin Beck


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink mit SVERWEIS!!!!!!"