Hallo,
ich habe eine Tabelle mit über 1000 Zeilen und mehreren Spalten, in denen manche Zellen mit einer Farbe hinterlegt sind. Nun soll die Farbe geändert werden.
Muss ich jetzt alle Zellen einzeln markieren, um die Farbe zu ändern oder gibt es eine Funktion, die mir diese Arbeit abnimmt?
Hallo Demi,
hier ein Makro, das alle markierten Zellen nach einerbestimmten Farbe (Colorindex) durchsucht und durch eine andere Farbe ersetzt:
Sub Farbe()
Dim Zelle
For Each Zelle In ActiveSheet.UsedRange
With Zelle.Interior
If .ColorIndex = 6 Then .ColorIndex = 3
End With
Next Zelle
End Sub
Den Colorindex erfährst Du in der VBA-Hilfe von Excel …
gruß
moritzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]