Zellen nach Schriftfarbe filtern

[d'r Bastler]

Moin allerseits,
manchmal möchte man etwas machen, was Profi-VBAler an den Rand des Wahnsinns treibt Z.B. habe ich eine nette Sudoku-VBAstelei schon seit Jahren im Einsatz und optimiere immer wieder mal. Diesmal mit folgender Aufgabe:

On_Open wird ein neues Spiel aus dem Netz geklaut und in 9 x 9-Raster eingetragen. Diese Zellen haben als Textfarbe schwarz und sind dann schreibgeschützt. Eigene Einträge im Raster erscheinen blau und können natürlich geändert werden. Wenn man sich im Spiel nun völlig verrannt hat, will man es vielleicht einfach neu starten. Also müssen alle nicht schwarzen Zahlen wieder raus.

Leichte Übung dachte ich: Schleife durch das Raster - wenn Schriftfarbe <> vbBlack, dann Zelle leer. Vom Prinzip her gar nicht ganz falsch - nur dass VBA xlBlack nicht erkennt! Erst wenn man .Font.Color <> 657930 eingibt, klappt der Spaß. Also musste ein probates Hilfsmittel her: Debug.Print. Hier eine Beispiel-Schleife, die natürlich angepasst werden muss:

Code: Alles auswählen

For i = 2 To 10
    For a = 2 To 10
        Debug.Print i & ", " & .Cells(i, a).Font.Color
    Next a
Next i

Als Ergebnis erhält man Im Direktfenster (Strg+g) die (ewiglangen) Farbcodes aller abgefragten Zellen und kann diese dann entsprechend nutzen.

Viel Spaß damit!

[xlKing]

Hallo heb,

Tja, erstens kann Excel xlBlack nicht erkennen, weil die Konstante vbBlack heißt. Und zweitens: Wenn du eine benutzerdefinierte Farbe wählst, die zwar noch schwarz ist, sich aber schon in den Graubereich verschiebt, dann kann auch vbBlack mit dem Wert 0 nichts mehr ausrichten. In deinem Fall hast du den RGB-Code 10,10,10 gewählt. Meine Frage ist jetzt: Hast du diese Farbe selbst gewählt oder ist sie über die Schriftfarbe "Automatisch" aufgrund einer anderen Zellhintergrundfarbe entstanden?

Gruß Mr. K.

[d'r Bastler]

Moin Mr. K.

zur xl/vbBlack-Geschichte. Ich hatte da tatsächlich diesen lästigen Fehler gemacht. Danke sehr für den Tritt in den Hintern

Die Farbauswahl habe ich über das Textfarben-Menü gesetzt. Deine Frage ist aber ein sehr guter Hinweis, solche Sachen künftig mit RGB zu definieren.

lg