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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen