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