ich versuche ein Formelergebnis mit einem Makro einen Fabzuweisung zu geben. Leider geht der Farbumschlag nur bei direkter Eingabe ins Feld.
Formel:
=WENN(K14="";"";SVERWEIS(K:K;Datenquelle!A:G;2;FALSCH)) ~f~ --> Vergleich auf separater Mappe
Es steht dann z.b. SM im Feld A1, über das Makro möchte ich jetzt, dass je nach Vergleichsergebnis die Hintergrundfarbe ändert.
nun soll dieses Feld je nach Ergebnis (z.B. FM -> gelb; SM -> Grün) die Füllfarbe ändern.
Makro (das leider nur bei Direkteingabe funktioniert):
~f~
Private Sub Worksheet_Change( _
ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A15")) _
Is Nothing Then Exit Sub
If Target.Value = "SM" Then
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
End If
If Target.Value = "FM" Then
Target.Interior.ColorIndex = 8
Target.Font.ColorIndex = 1
End If
usw.
da ich über 10 Kürzel habe, kann ich nicht mit bedingter Formatierung arbeiten.
Danke in Voraus für die Hilfe
Gruss Cho