bei herrlichem Wetter
ich möchte Zeilen löschen es fiunktioniert mit einem mit Begriff aber mit OR geht es nicht "laufzeitfehler"
Sub Loeschen_T()
Dim lngI As Long
For lngI = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(lngI, 1) = "intern" Or "extern" Or "krank" Then ActiveSheet.Cells(lngI, _
1).EntireRow.Delete
Next lngI
End Sub
DANKE
helena