Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle einfärben wenn Farbe enthalten

Zelle einfärben wenn Farbe enthalten
Heinz
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle einfärben wenn Farbe enthalten
04.02.2012 10:01:06
Hajo_Zi
Hallo Heinz,
alle Farben ändern?
If rngZelle.Interior.Color inde xlnone Then

AW: Zelle einfärben wenn Farbe enthalten
04.02.2012 14:36:52
Heinz
Hallo Hajo,
das war ja einfach - für Dich ;-)
Vielen Dank und ein schönes Wochenende
Heinz
AW: Zelle einfärben wenn Farbe enthalten
04.02.2012 14:46:36
Hajo_Zi
Hallo Heinz,
ich sehe gerade es fehlt das x bei Index, das ist Dir aber bestuimmt aufgefallen.
Gruß Hajo
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige