Office: Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen

Hallo, ich erstelle mir aus verschiedenen Textdateien eine Adressliste (mehrere hundert Einträge, Ende variiert). Am Ende der Liste erscheint immer etwas "Kauderwelsch" (?ê!L?e8ÖLê!ýÊÖ╚s*Lê6ÖL*êýÊÖ ╚ø┐), dies möchte ich automatisch entfernen. Wie springe ich in die letzte Zelle/Zeile die eine Mailadresse enthält und lösche alle darunter liegenden?

 

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen (Alt+F4, oder Kreuz rechts oben).
Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen (Alt+F8 ).

Code:

Option Explicit

Sub Loeschen()
    Dim LoLetzte As Long
    Dim LoI As Long
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    For LoI = LoLetzte To 1 Step -1
        If InStr(Cells(LoI, 1), "@") = 0 Then
            Rows(LoI).Delete
        Else
            Exit For
        End If
    Next LoI
End Sub

 

Moin!
Ich würde Spalte A einfach nach
Enthält nicht: @
filtern und die entsprechenden Zeilen löschen.
Wenn das Kauderwelsch immer am Ende steht, dann einfach
Strg+Ende und die paar Zeilen händisch löschen.

Gruß Ralf

 

Hallo,
Vielen Dank euch beiden. Habe beides ausprobiert, funktionieren beide Wege :)

Gruß
Josch