Zeile löschen wenn...
20.06.2006 14:49:19
Michael
ich möchte die gesamte Zeile unter der Bedingung löschen, wenn in Spalte A entweder das Wort "Konto" oder "Belegdatum" auftaucht.
ich habe folgenden Code, welcher aber nicht klappt:
Sub Z_LOESCHEN()
Dim ZEILE
For ZEILE = 3 To 2000
If Cells(ZEILE, 1) = "Konto" Or Cells(ZEILE, 1) = "Belegdatum" Then
ActiveSheet.Rows(ZEILE).EntireRow.Delete
Next ZEILE
End Sub