Zelle einfärben wenn Farbe enthalten
Heinz
ich hoffe, ihr habt ein schönes Wochenende.
Zum rausgehen ist es definitiv zu kalt.
VBA ist nicht mein Ding (wie Ihr gleich feststellen werdet).
Die Aufgabe:
Per VBA Zellen mit einem definierten RGB-Farbmuster zu befüllen.
Dazu sollen alle Zellen neu eingefärbt werden, die bis dato irgend
eine Farbe hatten. Also alle weißen sollen bleiben wie sie waren.
Ich bin soweit gekommen:
Dim rngZelle As Range
For Each rngZelle In Selection
If rngZelle.Interior.Color = 3 Then
rngZelle.Interior.Color = RGB(255, 200, 137)
End If
Next
End Sub
... und das ist schon gut für mich ;-)
ich schaffe es aber nur, eine bestimmte Farbe (hier mit index 3) zu
verändern.
Wie kann ich VBA mitgeben, dass alle Zellen eingefärbt werden sollen,
in denen irgend eine Farbe (außer weiß) enthalten ist.
Ich freue mich auf Eure Lösungen.
Heinz