ich benutze folgendes Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rc As Range
Dim lx As Long
Dim bSet As Boolean
If Intersect(Target, Range("F11:AJ20,F21:AJ38,F49:AJ76,F87:AJ114")) Is Nothing Then Exit Sub
For Each rc In Target.Cells
For lx = 2 To 32 Step 6
If rc.Value = Cells(6, lx).Value Then
rc.Interior.ColorIndex = Cells(6, lx).Interior.ColorIndex
bSet = True
End If
Next lx
If Not (bSet) Then rc.Interior.ColorIndex = 2
Next
End Sub
==============================
Die Eingabewerte sind in Zeile 6 ( Zelle B6=RA , H6= T , N6=X ......) 6Werte halt die mit Farben hinterlegt sind.
Habe jetzt versucht noch weitere einzubinden aber ich schaff das nicht..zumindest werden die Farben die ich benutzen möchte nicht angenommen. Gibts da Farben die nicht wollen?
Benutze im moment die Farbnummern: 2 Weiß, 3 Rot , 8 Hellblau , 50 dunkelgrün, 6 Gelb , 45 Dunkl Orange,
versucht jetzt mit 33, 43, ...
Sind da nur 6 Farben machbar?
Meine VBA Kenntnisse sind nicht so dolle.
Wäre nett wenn mir Jemand den code mal beschreibt....danke.
Gruß Matze