Kann mir bitte jemand helfen. Was ist bei dem folgenden Code falsch hänge total:
Sub Passwort()
Const Kennwort = "123456"
If InputBox("Bitte geben Sie das richtige Kennwort ein" + Chr(13) + "sonst ist kein Zugriff auf diese Informationen" + Chr(13) + "möglich.", " Passwortabfrage") = Kennwort Then
Load Test
Test.Show
Else: MsgBox ("Es ist leider kein Zugriff möglich!")
End If
End Sub
Meine Userform heißt "Test". Das seltsame ist das es funktioniert hat und jetzt auf einmal bringt es mir einen Fehler markiert mir die Zeile Load Test gelb (beim debuggen) und schreibt "Typen unverträglich".
Bin für jede Hilfe dankbar.