Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
Danke für die Hilfe !
Option Explicit
Sub loeschen()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "Suchbegriff" Then
Range(Cells(i + 1, 1), Cells(1, 1)).EntireRow.Delete
End If
Next
End Sub
Da du das file nicht näher definiert hast, habe ich das nicht weiter berücksichtigt.
Gruß
David
Sub loeschen2()
Dim zeile As Long
zeile = Columns("A:A").Find(What:="Suchbegriff").Row
Range(Cells(zeile + 1, 1), Cells(1, 1)).EntireRow.Delete
End Sub
Gruß
David
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen