Löschen von Zeilen bei erfüllter Bedingung
27.03.2006 22:01:22
Zeilen
ich möchte auf einem jeweils aktiven Tabellenblatt bestimmte Zeilen mit dem Inhalt "Dokument" löschen. hierzu habe ich folgendes versucht:
Sub Zeilelöschen()
Dim intz As Long
Dim intzGesamt As Long
With Sheets("Tabelle1")
intzGesamt = .UsedRange.Rows.Count
Range("a1") = intzGesamt
For intz = intzGesamt To 1 Step -1
If .Rows(intz).Text = "Dokument" Then .Rows(intz).Delete Shift:=xlUp
Next intz
End With
End Sub
Wichtig ist hier, dass ich nie sgen kann, wie lang die Liste eigentlich ist. D.h. ich muß die benutzten spalten irgendwie ermitteln.
Leider funkt. dies nicht. Es gibt aber auch keine Fehlermeldung. Es gibt hierzu bestimmt eine Lösung und ich hoffe, dass mir jemand helfen kann.
Gruß holger