Thema Datum  Von Nutzer Rating
Antwort
10.03.2020 16:31:30 Maurice
NotSolved
10.03.2020 17:44:36 Gast3333
NotSolved
Rot Nach Filtern Reihe durchsuchen
 11.03.2020 10:28:00 Gast23093
NotSolved

Ansicht des Beitrags:
Von:
Gast23093		 Datum:
11.03.2020 10:28:00		 Views:
535		 Rating:
     
Antwort:
  Ja
Thema:
Nach Filtern Reihe durchsuchen

probier mal:

Option Explicit

Private Enum ContentStatusEnum
  cstNone = 0
  cstKA = 1
  cstNotKA = 2
  cstMixed = cstKA Or cstNotKA
End Enum

Public Sub Test()
  
  Dim rngCell As Excel.Range
  Dim enmStatus As ContentStatusEnum
  Dim lngOffset As Long
  
  'Start-Zelle (Spalte 'PartGs')
  Set rngCell = Worksheets("Tabelle1").Range("H2")
  
  enmStatus = cstNone
  lngOffset = 0
  Do While rngCell.Offset(lngOffset).Value <> ""
    
    Select Case UCase$(rngCell.Worksheet.Cells(rngCell.Offset(lngOffset).Row, "C").Value)
      Case "KA"
        enmStatus = enmStatus Or cstKA
      Case Else
        enmStatus = enmStatus Or cstNotKA
    End Select
    
    If 0 = StrComp(rngCell.Offset(lngOffset).Value, rngCell.Offset(lngOffset + 1).Value) Then
      lngOffset = lngOffset + 1
    Else
      Set rngCell = rngCell.Offset(lngOffset + 1)
      If enmStatus = cstKA Then 'nur KA vorhanden
        Debug.Print "delete '"; rngCell.Offset(-1).Value; "'"
        rngCell.Worksheet.Range(rngCell.Offset(-lngOffset - 1), rngCell.Offset(-1)).EntireRow.Delete
      Else
        Debug.Print "skip '"; rngCell.Offset(-1).Value; "'"
      End If
      enmStatus = cstNone
      lngOffset = 0
    End If
    
  Loop
  
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
10.03.2020 16:31:30 Maurice
NotSolved
10.03.2020 17:44:36 Gast3333
NotSolved
Rot Nach Filtern Reihe durchsuchen
 11.03.2020 10:28:00 Gast23093
NotSolved