Ich habe das einfache Problem, dass ich komplette Zeilen löschen möchte. Das folgende Makro soll das erledigen. Es läuft auch bis zum Befehl "ActiveCell.EntireRow.Delete" gut. Bei der Ausführung des Befehls stürzt Excel komplett ab. Wo ist der Haken?

Dim l As Long
Dim Zl As Long

Sheets("Tabelle1").Activate
Zl = ActiveSheet.UsedRange.Rows.Count
Range("A1").Activate
For l = 1 To Zl
If InStr(1, ActiveCell.Value, "Tel.:") Then ActiveCell.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Next l