die Zeile mit
"iaR = ActiveSheet.UsedRange.Rows.Count"
lässt sich nicht kompilieren. Woran könnte das liegen und welche andere Möglichkeit gibt es?
Josef
Sub LoeschenWGT2()
Dim i As Long
Dim iaR As Long
Application.ScreenUpdating = False
Sheets("Funk").Select
iaR = ActiveSheet.UsedRange.Rows.Count
iaR = Cells(Row.Count, 5).End(xlUp).Row
For i = 1 To iaR
If Cells(i, 5).Text = "009-30" Then
Cells(i, 4).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub