Hallo Zusammen,
hab da ein Problem, bei dem ich eure Unterstützung bräuchte.
If Not Intersect(Target, Range("D18:AS383")) Is Nothing Then
With Target
Select Case .Value
Case Is = "Projekt"
.Interior.ColorIndex = 40
Case Is = "Abwesenheit"
.Interior.ColorIndex = 16
Case Is = "Tagesgeschäft"
.Interior.ColorIndex = 23
'
'
'
'
End Select
End With
End If
Mit diesen Makro kann man je nach Wort die Zelle einfärben.
Für meine Anwendung bräuchte ich es etwas anders.
Er müsste bei mir den Zellinhalt im Tabellenblatt Einstellungen Spalte B suchen
(Sverweis B:D,3) und mir die Zelle nach dem Wert in Spalte D einfärben.
Wer ist in VBA so gut bewandandert um mir das zu zeigen ?
Liebe Grüße
Stefan