nach einem Export steht in Spalte 26 entweder der Wert FALSCH ODER WAHR . Wenn WAHR erscheint, soll die entsprechene Zeile gelöscht werden?
Kann mir jemand helfen ?
Gruß
Michael
Sub Delete_WAHR()
Dim wks As Worksheet
Dim rZeilen As Range, Zeile As Long, Spalte As Long
Set wks = ActiveSheet 'oder: = Worksheets("TabelleXYZ")
Spalte = 21
With wks
For Zeile = 1 To .Cells(.Rows.Count, Spalte).End(xlUp).Row
If .Cells(Zeile, Spalte) = True Then
If rZeilen Is Nothing Then
Set rZeilen = .Cells(Zeile, Spalte)
Else
Set rZeilen = Application.Union(rZeilen, .Cells(Zeile, Spalte))
End If
End If
Next
If Not rZeilen Is Nothing Then
rZeilen.EntireRow.Delete shift:=xlShiftUp
End If
End With
End Sub