Hallo Zusammen,
ich erhalte andauernd den o.g. Fehler. Was mache ich falsch?
Bitte um eure Hilfe .
With wkbSamm.Sheets("Test1")
Sheets("Test1").Select
If arrW(11) = "ja" Then
DelZeile = 0
For zeile = 5 To 1000
If Cells(zeile, 2) = "" Then
Exit For
Else
If projektnr = Cells(zeile, 2) Then
DelZeile = zeile
Rows(DelZeile & ":" & DelZeile).Select
Selection.Delete Shift:=xlUp
Exit For
End If
Next zeile
Else
End If
End With
Vielen Dank für Eure Hilfe im voraus