ich habe einen Dienstplan erstellt, der es den Benutzern ermöglicht aus einer Gültigkeitsliste Werte auszuwählen. Die Zelle wird dann entsprechend dem Eintrag eingefärbt.
Probleme bestehen hierbei:
1. Die 56 Farben aus dem ColorIndex-Bereich beinhalten leider keine "blassen" Töne (die man jedoch aus der Formatleiste wählen kann) - wo bekomme ich diese Werte her ?
2. In der Spalte B stehen die Tagesdaten, bei Wochenenden und Feiertagen ist die gesamte Zeile eingefärbt. Wenn man mit meinem Code einen Wert dort eingibt, wird es korrekt eingefärbt - es sollte jedoch möglich sein, bei Löschen des Eintrages zu prüfen ob die Datumszelle grau (Index 15) eingefärbt ist. Falls also dieser Tag ein Feier- oder Wochendtag ist, soll die leere Zelle wieder in grau, ansonsten Weiss eingefärbt werden.
3. Da ich mit Worksheet_Change arbeite, ändern sich die Werte nur bei Bestätigen mit Enter-Taste, die Werte kommen aber aus der Gültigkeitsprüfung (Tabelle ist für mehrere Benutzer freigegeben!) und werden angeklickt - bei diesem Verfahren wird das Makro aber nicht aufgerufen! Gibt es hier noch eine andere Möglichkeit ?
Hier der dazugehörige Code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
Select Case Target.Value
Case ""
Target.Interior.ColorIndex = xlColorIndexNone
Case "F"
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
Case "f"
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
Target.Value = "F"
Case "S"
Target.Interior.ColorIndex = 53
Target.Font.ColorIndex = 1
Case "s"
Target.Interior.ColorIndex = 53
Target.Font.ColorIndex = 1
Target.Value = "S"
Case "N"
Target.Interior.ColorIndex = 18
Target.Font.ColorIndex = 2
Case "n"
Target.Interior.ColorIndex = 18
Target.Font.ColorIndex = 2
Target.Value = "N"
End Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Hoffentlich hat einer begriffen, was ich erreichen will und kann mir weiterhelfen .....
MfG
Sven