ich wäre dankbar für Hilfe:
Ich möchte alle Zelleninhalte mit blauer Schrift per Klick auf einen Button löschen. Wie kann man das programmieren?
Gruß, sabbelschlaeppchen
Public Sub FarbigeLoeschen()
Dim rBereich As Range
Dim rZelle As Range
Set rBereich = ThisWorkbook.Worksheets("Tabelle1").Range("A1:F10")
For Each rZelle In rBereich
If rZelle.Font.ColorIndex = 5 Then rZelle = ""
Next rZelle
Set rBereich = Nothing
End Sub