Ich benötige nochmal Unterstützung. Ich möchte per Makro alle Zeilen einer Tabelle löschen in denen die Werte der Zeile in roter Schrift dargestellt werden.
Danke im Voraus
Gruss Frank
Sub tt()
Dim LoLetzte As Long, loI As Long
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For loI = LoLetzte To 1 Step -1
If Cells(loI, 1).Font.ColorIndex = 3 Then
Rows(loI).Delete
End If
Next
End Sub
Setzt voraus, dass die Zeilen ab Spalte A befüllt sind.