VBA Schriftfarbe der Hintergrundfarbe anpassen

[Klaus Fierenz]

Hallo zusammen,

ich habe ein Makro mit dem ich mir in dem Bereich C6:R58
folgendes formatieren lasse:

Wenn die Zahl einer Zelle in obigem Bereich eine 1 ist dann
"rgn.Interior.ColorIndex = 3"
wenn Zahl = 2 dann rgn.Interior.ColorIndex = 6 usw.
Dies alles mit 4 unterschiedlichen Farben.

Nun möchte ich in einem zweiten Makro den ColorIndex in obigem
Bereich abfragen und der Schrift die gleiche Farbe geben wie der
Zelle. Die Schrift soll also nicht mehr lesbar sein.

Ein weiteres Makro soll die Schriftfarbe wieder auf scharz
setzen, so dass man alles lesen kann.

Wer kann mir helfen?

Danke im voraus

Klaus

[Stefan Onken]

hallo Klaus,

Sub SchriftFarbeSetzen()
Dim zelle As Range
For Each zelle In Range("C6:R58")
If zelle.Interior.ColorIndex <> xlNone Then
zelle.Font.ColorIndex = zelle.Interior.ColorIndex
End If
Next
End Sub

Falls der Bereich vollständig mit den 4 Farben gefüllt ist, kannst du die If
und End If Zeilen weglassen.

Sub SchriftFarbeRückSetzen()
Range("C6:R58").Font.ColorIndex = 0
End Sub


Gruß
stefan

Post by Klaus Fierenz
Hallo zusammen,
ich habe ein Makro mit dem ich mir in dem Bereich C6:R58
Wenn die Zahl einer Zelle in obigem Bereich eine 1 ist dann
"rgn.Interior.ColorIndex = 3"
wenn Zahl = 2 dann rgn.Interior.ColorIndex = 6 usw.
Dies alles mit 4 unterschiedlichen Farben.
Nun möchte ich in einem zweiten Makro den ColorIndex in obigem
Bereich abfragen und der Schrift die gleiche Farbe geben wie der
Zelle. Die Schrift soll also nicht mehr lesbar sein.
Ein weiteres Makro soll die Schriftfarbe wieder auf scharz
setzen, so dass man alles lesen kann.
Wer kann mir helfen?
Danke im voraus
Klaus