Hallo,

ich möchte für einen Dienstplan, dass, wenn ich eine bestimmte Uhrzeit in die Zelle eintrage, sich die Zellfarbe ändert.

Dazu habe ich folgendes Script genommen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub

Select Case Target.Value

'bei Zeit "19:00" Hintergrundfarbe lila
Case "19:00"
Target.Interior.ColorIndex = 39

Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub

Das funktioniert solange ich die Zelle als Text formatiere. Formatiere ich in Uhrzeit, funktioniert es nicht mehr. Woran liegt das?

Wenn ein VBS-Experte antwortet, vielleicht weiss er auch eine Antwort auf weitergehende Ideen von mir:

Ich habe in einer Zelle die Anfangszeit, rechts daneben die Endzeit.

1) Ist es möglich, wenn ich eine bestimmte Zeit eintrage, z.B. Beginn 8:00, dass dann die Zelle rechts daneben (Feierabend) automatisch die selbe Farbe bekommt?

2) Beide Zellen erhalten die selbe Farbe, wenn bestimmte Bedingenen erfüllt sind, z.B. Arbeitszeit länger als 10 Std (Beginn 08:00 Ende 18:00).

Ich glaube, dass kann aber nur funktionieren wenn das Uhrzeitproblem gelöst ist.

Schon ganz vielen Dank im Voraus!

Gruß
Sascha