vielleicht kann mir jemand hier helfen. Ich suche die Möglichkeit alle Zeilen zu löschen wenn in der Spalte H ein FALSCH auftauch.
Kann man dies irgendwie mit einem Makro lösen?
Vorab vielen Dank.
Gruß
Sascha
Sub Delete_Zeilen_mit_FALSCH()
Dim Zeile As Long, rng As Range
Dim wks As Worksheet
If MsgBox("Zeilen mit FALSCH löschen", vbQuestion + vbOKCancel, _
"Zeilen löschen") = vbCancel Then Exit Sub
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
For Zeile = 1 To .Cells(.Rows.Count, 8).End(xlUp).Row 'zu prüfender Zeilenbereich
'Inhalt Spalte H (8) prüfen
If .Cells(Zeile, 8) "" And .Cells(Zeile, 8) = False Then
If rng Is Nothing Then
Set rng = .Rows(Zeile)
Else
Set rng = Application.Union(rng, .Rows(Zeile))
End If
End If
Next
End With
If Not rng Is Nothing Then
rng.Delete
End If
Application.ScreenUpdating = True
Set wks = Nothing: Set rng = Nothing
End Sub