Hallo,

ich habe eine lange Liste von Sensordaten, die ich jetzt auf das Wichtigste reduzieren möchte. Dazu möchte ich alles was zwischen den Schlagwörtern "beendet" und "Testnummer" steht, gelöscht wird. Die Zeilen mit den beiden Schlagwörtern sollen angezeigt werden.

Damit nicht versehentlich bereits angepasst Abschnitte gelöscht werden, habe ich eine IF-Abfrage eingebaut, sobald "ZeilennummerTestnummer" und "ZeilennummerBeendet" untereinander sind, dann nichts gelöscht werden darf. Das funktioniert beim ersten Mal ganz gut, aber sobald die beiden Zeilen untereinander sind, bleibe ich in der IF-Abfrage hängen und kommen nicht mehr raus. Ich weiß nicht wie ich den Code aufbauen soll, wenn die Zeilen untereinandner sind, der Code zum nächsten relevanten Punkt springt. Kann mir bitte jemand weiterhelfen?

Code:

Sub entfernen()
Dim Fundzelle1 As Range
Dim Fundzelle2 As Range
Dim ZeilennummerBeendet As Integer
Dim ZeilennummerTestnummer As Integer


Dim wksT As Worksheet
Dim Counter As Long
Dim Durchlauf As Long
Dim n As Long

n = 28

Set wksT = ActiveWorkbook.Worksheets("Tabelle4")
  With ActiveSheet.Columns(1)

    For Counter = 1 To n Step 1
    'ZeilennummerPreis = 0
    'ZeilennummerErgebnis = 0
        Set Fundzelle1 = .Find(What:="beendet", After:=ActiveCell, LookIn _
           :=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
           xlNext, MatchCase:=False, SearchFormat:=False)
        Set Fundzelle2 = .Find(What:="Testnummer", After:=ActiveCell, LookIn _
           :=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
           xlNext, MatchCase:=False, SearchFormat:=False)
    
        ZeilennummerBeendet = (Fundzelle1.Rows.Row + 1)
        ZeilennummerTestnummer = (Fundzelle2.Rows.Row - 1)
            If (ZeilennummerTestnummer > ZeilennummerBeendet) Then
            Rows(ZeilennummerBeendet & ":" & ZeilennummerTestnummer).Delete Shift:=xlUp
            End If
    Next Counter
End With
End Sub

Ausschnitt von den Sensordaten:

Vorab vielen Dank!

Viele Grüße

Christian