Moin,
warum schreit er mich hier an, dass ein Loop ohne Do vorhanden sei!!?!!?
Do Until ActiveCell.Offset(1, 0).Value = 0
If Left(ActiveCell, 2) = "14" Then
ActiveCell.EntireRow.Delete
ElseIf Left(ActiveCell, 2) = "24" Then
ActiveCell.EntireRow.Delete
ElseIf Left(ActiveCell, 2) = "34" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Loop