18.12.2019, 12:13
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.
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 SubCode:
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 SubCode:
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