Hallo,
einmal wollte ich ein paar Zeilen Code ohne CopyPaste schreiben und prompt geht es schief :(
Ein Script soll "abbrechen" wenn es nicht gerade zwischen 00:00h und 6:00h ist.
Dafür wollte ich eigentlich:
If WELCHESTUNDE = 6 -B-I-S- 23 Then
Exit Sub
End If
Da mir die Syntax für -B-I-S- fehle, habe ich es so versucht:
If WELCHESTUNDE = 7 Or 8 or 9 ... Then
Exit Sub
End If
Geht nicht
genauso
If WELCHESTUNDE = "7" Or "8" or "9" ... Then
Exit Sub
End If
geht auch nicht. Deklariert habe ich:
Dim WELCHESTUNDE As String
und testweise auch
Dim WELCHESTUNDE As Integer
und dazu dann
WELCHESTUNDE = Format(Time, "h")
Ich bitte euch um Hilfe, hier geht es doch nur um ein paar Zeichen oder habe ich da einen ganz falschen Ansatz?
Nach dieser Schleife kommt dann ein Code der bisher gut funktionierte.
Im Moment habe ich diese Notlösung - die aber perfekt funktioniert
If WELCHESTUNDE = 6 Then
Exit Sub
End If
If WELCHESTUNDE = 7 Then
Exit Sub
End If
If WELCHESTUNDE = 8 Then
Exit Sub
End If
[...]
If WELCHESTUNDE = 19 Then
Exit Sub
End If
If WELCHESTUNDE = 20 Then
Exit Sub
End If
If WELCHESTUNDE = 21 Then
Exit Sub
End If
If WELCHESTUNDE = 22 Then
Exit Sub
End If
If WELCHESTUNDE = 23 Then
Exit Sub
End If
lg
FKSS
|