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