Userform.Show funktioniert nicht mehr

[stchwint]

Hallo Zusammen,

nach Anzeige meiner Userform "Auswertedatum" wird unmittelbar ein Fehler gezeigt. Es liegt laut Fehlermeldung am Code Auswertedatum.Show.

Das komische ist, dass ich heute an dem Code Auswertedatum_eingeben nur eine Kleinigkeit für die Abfrage der Messagebox geändert habe und es ansonsten immer geklappt hat.

Das aller komischste ist, dass bei dem Stand von gestern der auch funktioniert hat und bei der ich keine Änderung vorgenommen habe nun der selbe Fehler auftritt.

Im Folgenden alle Codes die mit der Userform  zu tun haben.

Code:

Sub Datumeingabe_Start()

Load Auswertedatum
 Auswertedatum.Show
 
End Sub

Sub Datumeingabe_aus()

Unload Auswertedatum
Auswertedatum.Hide

End Sub

Code:

Public AuswerteMonat5 As Date
Sub Auswertedatum_eingeben()
Dim message, title As String
Dim defaultValue, idate As Variant
Dim idateyear, idatemonth, idateday As Integer

'idateday = UserForm2.TextBox1.Value
'idatemonth = UserForm2.TextBox2.Value
'idateyear = UserForm2.TextBox3.Value


AuswerteMonat5 = DateSerial(year(Now()), Month(Now()), Day(Now()))


If Auswertedatum.TextBox1 = "" Or Auswertedatum.TextBox2 = "" Or Auswertedatum.TextBox3 = "" Then
MsgBox ("Ein Feld ist Leer, bitte komplett ausfüllen")
Call Datumeingabe_aus
Call Datumeingabe_Start
Exit Sub
End If
If IsNumeric(Auswertedatum.TextBox1) = False Or IsNumeric(Auswertedatum.TextBox2) = False Or IsNumeric(Auswertedatum.TextBox3) = False Then
MsgBox ("Falsche Eingabe, bitte Zahlen eingeben z. B. Tag: 01 Monat: 08 Jahr: 2019")
Call Datumeingabe_aus
Call Datumeingabe_Start
Exit Sub
End If
If Len(Auswertedatum.TextBox1) <> 2 Then
MsgBox ("Tag Bitte mit einer zweistelligen Ziffer angeben z. B. 01")
Call Datumeingabe_aus
Call Datumeingabe_Start
Exit Sub
End If

If Len(Auswertedatum.TextBox2) <> 2 Then
MsgBox ("Monat Bitte mit einer zweistelligen Ziffer angeben z. B. 01")
Call Datumeingabe_aus
Call Datumeingabe_Start
Exit Sub
End If

If Len(Auswertedatum.TextBox3) <> 4 Then
MsgBox ("Jahr Bitte mit einer vierstelligen Ziffer angeben z. B. 2019")
Call Datumeingabe_aus
Call Datumeingabe_Start
Exit Sub
End If

If Auswertedatum.TextBox1 < 1 Or Auswertedatum.TextBox1 > 31 Then
MsgBox ("Bitte Tag zwischen 1 - 31 wählen")
Call Datumeingabe_aus
Call Datumeingabe_Start
Exit Sub
End If

If Auswertedatum.TextBox2 < 1 Or Auswertedatum.TextBox2 > 12 Then
MsgBox ("Bitte Monat zwischen 1 - 12 wählen")
Call Datumeingabe_aus
Call Datumeingabe_Start
Exit Sub
End If

idateday = Auswertedatum.TextBox1.Value
idatemonth = Auswertedatum.TextBox2.Value
idateyear = Auswertedatum.TextBox3.Value
'Range("J1").Activate
'idate = InputBox(message, title, defaultValue)
'idate = CDate(Format(idate, "dd.mm.yyyy"))
'Range("J1") = Val(idate)
'Range("J1").NumberFormat = "dd/mm/yyyy"

AuswerteMonat5 = DateSerial(idateyear, idatemonth, idateday)

End Sub

Code:

Private Sub Label1_Click()

End Sub

Private Sub Label5_Click()

End Sub





Private Sub TextBox2_Change()

End Sub

Private Sub ToggleButton2_Click()
End
Unload Me

End Sub

Private Sub ToggleButton1_Click()
Auswertedatum_eingeben
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

TextBox1.SetFocus

Me.Label5.Caption = Worksheets("Frontend").Cells(4, 6).Text
End Sub

[stchwint]

str + Pause muss man wieder deaktivieren mit 2 mal STRG + pause und F5.