kann mir bitte jemand weiterhelfen? Ich möchte aus einem Sheet bestimmte Zeilen löschen. Es liegen Email-Adressen in einer Spalte vor. Alle, welche mit info@ beginnen und evtl. auch alle die nicht mit .de enden, sollen gelöscht werden.
Ich habe es bereits mit den beiden Sub's versucht, aber das klappt nicht so.
Sub Endung_Nicht_DE_löschen()
Dim l As Long, zl As Long, zlNeu As Long
Worksheets("Tabelle1").Activate
If MsgBox("Alle die nicht mit .de enden löschen?", vbYesNo + vbDefaultButton2 _
+ vbQuestion, "Einträge entfernen") = vbNo Then Exit Sub
zl = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
For l = 1 To zl
If ActiveCell.Value <> "*.de" Then Selection.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Next l
zlNeu = ActiveSheet.UsedRange.Rows.Count
MsgBox zl - zlNeu & " Einträge wurden erfolgreich gelöscht.", vbInformation
End Sub
Sub Beginn_Info_löschen()
Dim l As Long, zl As Long, zlNeu As Long
Worksheets("Tabelle1").Activate
If MsgBox("Alle mit info@ löschen?", vbYesNo + vbDefaultButton2 _
+ vbQuestion, "Einträge entfernen") = vbNo Then Exit Sub
zl = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
For l = 1 To zl
If ActiveCell.Value = "info@*" Then Selection.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Next l
zlNeu = ActiveSheet.UsedRange.Rows.Count
MsgBox zl - zlNeu & " Einträge wurden erfolgreich gelöscht.", vbInformation
End Sub
Vielen Dank im voraus.
Gruß
Heiko