Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle einfärben wenn Farbe enthalten | Herbers Excel-Forum


Betrifft: Zelle einfärben wenn Farbe enthalten von: Heinz
Geschrieben am: 04.02.2012 09:54:28

Hallo Excellenten,

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

  

Betrifft: AW: Zelle einfärben wenn Farbe enthalten von: Hajo_Zi
Geschrieben am: 04.02.2012 10:01:06

Hallo Heinz,

alle Farben ändern?
If rngZelle.Interior.Color inde <>xlnone Then

GrußformelHomepage


  

Betrifft: AW: Zelle einfärben wenn Farbe enthalten von: Heinz
Geschrieben am: 04.02.2012 14:36:52

Hallo Hajo,

das war ja einfach - für Dich ;-)

Vielen Dank und ein schönes Wochenende
Heinz


  

Betrifft: AW: Zelle einfärben wenn Farbe enthalten von: Hajo_Zi
Geschrieben am: 04.02.2012 14:46:36

Hallo Heinz,

ich sehe gerade es fehlt das x bei Index, das ist Dir aber bestuimmt aufgefallen.
Gruß Hajo


Beiträge aus den Excel-Beispielen zum Thema "Zelle einfärben wenn Farbe enthalten"