Je nach aktueller Zeit in Richtige Tabelle springe
05.08.2016 00:08:39
marco
Hallo Gemeinde,
folgender Code:
Je nachdem, welche Zeit aktuell ist, soll die zugewiesene Tabelle aufgerufen werden. Warum bekomme ich zwischen 22:00 und 06:00 früh immer einen Fehler?
06:00 -- 13:59 = FS
14:00 -- 21:59 = SS
22:00 -- 05:59 = NS
NS funktioniert nicht :(
Private Sub Test_Click()
If Format(Now, "hh:mm") >= "06:00" And Format(Now, "hh:mm") < "14:00" Then
Sheets("FS").Activate
ElseIf Format(Now, "hh:mm") >= "14:00" And Format(Now, "hh:mm") < "22:00" Then
Sheets("SS").Activate
ElseIf Format(Now, "hh:mm") >= "22:00" And Format(Now, "hh:mm") < "06:00" Then
Sheets("NS").Activate
Else: MsgBox "Fehler"
End If
End Sub