Farben über VBA ändern

[Erika Arntzen]

Hallo NG,

ich habe 2 Arbeitsblätter. Das 1." Einträge " Das 2. " Auswertung "

In dem 2. Arbeitsblatt werden KEINE Einträge von Hand gemacht, sondern mit
einem SVERWEIS-Befehl in die Zellen eingefügt.
Jetzt sollen die Einträge bei einem bestimmten Wert farbig in Schrift und
Hintergrund verändert werden. Z.B. "K" rote Schrift gelber Hintergrund.

Mit der bedingten Formatierung kann ich nur 3 verschiedene Einträge
verändern, brauche aber erheblich mehr Kombinationen.
Mit VBA müsste es doch machbar sein, denke ich. :-)

Ich bedanke mich schonmal im Voraus
Erika

[Stefan Onken]

hallo Erika,
zB so:
rechtsklick auf das Register der Tabelle, dann linksklick auf Code
anzeigen. Es erscheint der VBA-Editor. In das große Codefenster:

Private Sub Worksheet_Change _
(ByVal Target As Range)
With Range("B1")
Select Case .Value
Case "K"
.Interior.ColorIndex = 5
.Font.ColorIndex = 50
Case "L"
.Interior.ColorIndex = 7
.Font.ColorIndex = 33
Case Else
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End Select
End With
End Sub

Editor beenden.
Wenn du in der Tabelle dann etwas änderst, wird der Inhalt der Zelle B2
überprüft und bei K und bei L die Schriftfarbe (Font) sowie der
Hintergrund (Interior) geändert, ansonsten auf Normalbedingungen
zurückgesetzt. Du kannst dann weitere Case Bedingungen hinzufügen.

Gruß
stefan

Erika Arntzen schrieb in der newsgroup microsoft.public.de.excel:

--
Immer auf dem aktuellen Stand mit den Newsgroups von freenet.de:
http://newsgroups.freenet.de

[Eberhard Funke]

Am Wed, 20 Apr 2005 11:27:16 +0200 schrieb Erika Arntzen:

> ich habe 2 Arbeitsblätter. Das 1." Einträge " Das 2. " Auswertung "
>
> In dem 2. Arbeitsblatt werden KEINE Einträge von Hand gemacht, sondern mit
> einem SVERWEIS-Befehl in die Zellen eingefügt.
> Jetzt sollen die Einträge bei einem bestimmten Wert farbig in Schrift und
> Hintergrund verändert werden. Z.B. "K" rote Schrift gelber Hintergrund.

Hallo Erika,

probier mal folgenden Makro:

Sub Zellen_Färben()
Dim rngZelle As Range
For Each rngZelle In ActiveSheet.UsedRange
With rngZelle
Select Case rngZelle.Value
Case "A"
.Font.ColorIndex = 7
.Font.Bold = True
.Interior.ColorIndex = 4
Case "B"
.Font.ColorIndex = 6
.Font.Bold = True
.Interior.ColorIndex = 5
Case "K"
.Font.ColorIndex = 3
.Font.Bold = True
.Interior.ColorIndex = 6
End Select
End With
Next

Die Schriften werden in "fett" gesetzt, da sonst die Farben z. T. nicht
klar erkennbar sind.
Nach dem vorgegebenen Strickmuster kannst Du den Code weiter ausbauen bzw.
anpassen. Die Farbnummern findest Du, wenn Du den Cursor auf "ColorIndex"
setzt und dann die F1-Taste drückst.

--

Gruss Eberhard
XL 2000