Hallo zusammen,
ich hoffe es kann mir jemand weiterhelfen, habe hier eine Schleife die leere Zeilen die ein paar deffinierte Variablen und zu guter letzt leere Zeilen löschen soll, das mit den Variablen klapt auch hervorragend, allerdings bereitet mir das löschen der Leeren Zeilen etwas Probleme, denn aus für mich unverständlichen Gründen löscht er eingige aber nicht alle.
Hier der Code:
Dim Ausgangspunkt As Range
Dim Zelle As Range
Dim Auswahlbereich As Range
On Error Resume Next
Set Ausgangspunkt = Range("A7")
If Ausgangspunkt Is Nothing Then Exit Sub
On Error GoTo 0
Set Auswahlbereich = Range(Ausgangspunkt, Cells(Rows.Count, 1).End(xlUp).Offset(0, Ausgangspunkt.Column - 1))
For Each Zelle In Auswahlbereich
If Zelle.Value = v1 Then
Range(Zelle, Zelle.Offset(0, 0)).EntireRow.Delete
End If
Next Zelle
For Each Zelle In Auswahlbereich
If Zelle.Value = v2 Then
Range(Zelle, Zelle.Offset(0, 0)).EntireRow.Delete
End If
Next Zelle
For Each Zelle In Auswahlbereich
If Zelle.Value = v3 Then
Range(Zelle, Zelle.Offset(0, 0)).EntireRow.Delete
End If
Next Zelle
For Each Zelle In Auswahlbereich
If Zelle.Value = v4 Then
Range(Zelle, Zelle.Offset(0, 0)).EntireRow.Delete
End If
Next Zelle
For Each Zelle In Auswahlbereich
If Zelle.Value = Empty Then
Range(Zelle, Zelle.Offset(0, 0)).EntireRow.Delete
End If
Next Zelle