Thema Datum  Von Nutzer Rating
Antwort
24.11.2016 19:00:48 Johannes
NotSolved
Blau Vergleich von Zellen über mehrere Spalten & Löschen von Reihen
 25.11.2016 12:56:21 Mario
NotSolved

Ansicht des Beitrags:
Von:
Mario		 Datum:
25.11.2016 12:56:21		 Views:
582		 Rating:
     
Antwort:
  Ja
Thema:
Vergleich von Zellen über mehrere Spalten & Löschen von Reihen

Hallo Johannes, ich hoffe ich habe dein Anliegen richtig Verstanden:

Sub Leere_Finden()
Dim iRow As Integer, lstRow As Integer
Dim iCount As Integer, lstCount As Integer

lstRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Letzte Zeile in Tabelle ermitteln
lstCount = ActiveSheet.Cells(2, 256).End(xlToLeft).Column 'Letzte Spalte in Tabelle ermitteln
 
iRow = 2 'Zeilen-Zähler auf 2 Setzten (Start in 2. Zeile)

Do While iRow < lstRow 'Schleife solange, bis Zeilen-Zähler iRow kleiner Letzte-Zeile ist

If ActiveSheet.Cells(iRow, 1) = "" Then Exit Do 'Falls 1.Spalte keinen Wert enthält, Do Schleife verlassen
    For iCount = 1 To lstCount 'Spalten Schleife von Spalte 1 bis Letzte Spalte
        If ActiveSheet.Cells(iRow, iCount).Value = "" Then  'Falls Zelle keinen Wert enthält:
            ActiveSheet.Rows(iRow).Delete 'Ganze Zeile Löschen
            iRow = iRow - 1 'Da Zeile Gelöscht worden ist, muss der Zähler 1 zurück gezählt werden und Schleife verlassen
            Exit For
        End If
    Next iCount
    
iRow = iRow + 1 'Zeilen Zähler 1 dazu zählen
Loop

End Sub

 

Mfg Mario

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
24.11.2016 19:00:48 Johannes
NotSolved
Blau Vergleich von Zellen über mehrere Spalten & Löschen von Reihen
 25.11.2016 12:56:21 Mario
NotSolved