Zellenfarben bei Datenimport aktualisieren
02.06.2006 10:45:32
Nico
Habe hier im Forum ein Scribt gefunden welches mir die Zellenhintergründe mit einer select case Anweisung bei einem bestimmten Wert ändert. Dieses brauchte ich da mit der bedingten Formatierung nur 3 Möglichkeiten zu Verfügung stehen. Soweit so gut. Nun zu meinem Problem. Werden die Werte von Hand eingetragen funtzt das Makro einwandfrei. Ich muss die Werte jedoch aus anderen Dokumenten importieren. Die Farbe ändert sich hierbei jetzt zwar jedoch nur einmalig. Ändert sich jetzt der wert in der anderen Tabelle wird er zwar richtig übergeben jedoch der alte Farbwert bleibt bestehen.
Frage: Wie kann ich das Lösen das der Farbwert sich auch bei einem Importiertem Wert ändert?
Und weiß jemand wo ich eine Tabelle finde welcher Farbwert welche Farbe ist?
Folgend der Sript code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
'If Target.Cells.Count > 1 Then Exit Sub 'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
Set Bereich = Range("B5:O110") 'Hier wird der Bereich, in dem der Code seine Wirkung hat, eingestellt
If Intersect(Target, Range("B5:O110")) Is Nothing Then Exit Sub
Select Case Target.Value
Case ""
Target.Interior.ColorIndex = 0 'Hintergrundfarbe
Target.Font.ColorIndex = 1 'Schriftfarbe
Case "RB"
Target.Interior.ColorIndex = 42 'Hintergrundfarbe
Target.Font.ColorIndex = 1 'Schriftfarbe
Case "Eins"
Target.Interior.ColorIndex = 47 'Hintergrundfarbe
Target.Font.ColorIndex = 1 'Schriftfarbe
Case "Aus"
Target.Interior.ColorIndex = 33 'Hintergrundfarbe
Target.Font.ColorIndex = 1 'Schriftfarbe
Case "Üb"
Target.Interior.ColorIndex = 22 'Hintergrundfarbe
Target.Font.ColorIndex = 1 'Schriftfarbe
'Case "irgendwas"
'Target.Interior.ColorIndex = 0 'Hintergrundfarbe
'Target.Font.ColorIndex = 0 'Schriftfarbe
End Select
End Sub
Würde mich über eine Antwort von euch freuen
LG Nico