Thema Datum  Von Nutzer Rating
Antwort
15.07.2022 21:27:02 Christian
NotSolved
Blau Code bleibt in der IF-Abfrage hängen
 15.07.2022 22:39:06 ralf_b
Solved
16.07.2022 18:33:24 Christian
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
15.07.2022 22:39:06		 Views:
298		 Rating:
     
Antwort:
 Nein
Thema:
Code bleibt in der IF-Abfrage hängen

Hier eine einfachere Lösung. Bitte selbst testen.

Sub entfernen()
Dim wksT As Worksheet
Dim lRowBeendet As Long, lRowTestNr As Long
Dim Counter As Long, n As Long
Dim rngUnion As Range

n = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Set wksT = ActiveWorkbook.Worksheets("Tabelle1")
  
  With wksT.Cells(1).Resize(n)

    For Counter = 1 To n
       
        If Cells(Counter, 1).Value Like "*beendet*" Then
           lRowBeendet = Counter
        ElseIf Cells(Counter, 1).Value Like "*Testnummer*" Then
           lRowTestNr = Counter
        End If
               
        If lRowBeendet + 1 <= lRowTestNr - 1 Then
             If rngUnion Is Nothing Then
                Set rngUnion = Rows(lRowBeendet + 1 & ":" & lRowTestNr - 1)
                ' Debug.Print rngUnion.Address
             Else
                Set rngUnion = Union(rngUnion, Rows(lRowBeendet + 1 & ":" & lRowTestNr - 1))
                'Debug.Print rngUnion.Address
             End If
        End If
   
    Next Counter
     If Not rngUnion Is Nothing Then rngUnion.Delete shift:=xlUp
End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.07.2022 21:27:02 Christian
NotSolved
Blau Code bleibt in der IF-Abfrage hängen
 15.07.2022 22:39:06 ralf_b
Solved
16.07.2022 18:33:24 Christian
Solved