Hallo zusammen,

mein Ziel ist ein ganz primitiver Wareneingang. Dazu habe ich ein UserForm "Wareneingang" gebaut, welches 4 Eingabefelder hat, in denen einfach eine Menge (-> nur Zahlen) als Wareneingang eingetragen wird.

Diese Zahlen werden in Variablen übergeben, um sie im Anschluss mit einem Modul in den Bestand einzutragen. Hier der Code meines UI:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Mit X wird das Makro beendet

    End

End Sub

Private Sub Abbruch_Click()
'Mit Abbruch wird das Makro beendet

    End

End Sub

Private Sub XS_Box_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Die Textbox wird auf die Eingabe von ganzen Zahlen beschrenkt

    Select Case KeyAscii
        Case 48 To 57
        Case Else: KeyAscii = 0
    End Select
    
End Sub

Private Sub S_Box_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Die Textbox wird auf die Eingabe von ganzen Zahlen beschrenkt

    Select Case KeyAscii
        Case 48 To 57
        Case Else: KeyAscii = 0
    End Select
    
End Sub

Private Sub M_Box_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Die Textbox wird auf die Eingabe von ganzen Zahlen beschrenkt

    Select Case KeyAscii
        Case 48 To 57
        Case Else: KeyAscii = 0
    End Select
    
End Sub

Private Sub L_Box_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Die Textbox wird auf die Eingabe von ganzen Zahlen beschrenkt

    Select Case KeyAscii
        Case 48 To 57
        Case Else: KeyAscii = 0
    End Select
    
End Sub

Private Sub OK_Click()
'Die Eingaben werden übernommen und damit das Modul Wareneingang ausgeführt

Me.Hide

    Dim XS, S, M, L As Integer
    
      
    XS = Wareneingang.XS_Box.Value
        If XS = "" Then XS = 0
        
    S = Wareneingang.S_Box.Value
        If S = "" Then S = 0
        
    M = Wareneingang.M_Box.Value
        If M = "" Then M = 0
        
    L = Wareneingang.L_Box.Value
        If L = "" Then L = 0
    
           
    Call Eintragen(XS, S, M, L)

Unload Wareneingang
    
End Sub

Es scheitert mit dem Laufzeitfehler 13: Typen unverträglich in dieser Zeile:

    L = Wareneingang.L_Box.Value
        If L = "" Then L = 0

Hat jemand eine Ahnung warum? XS, S und M sind ganz genauso geschrieben und da klappt es doch auch?
Sobald ich den If-Case auskommentiere klappt es, solange ich in meine L_Box einen Wert eintrage, falls nicht scheitert er verständlicher Weise.

Vielen Dank für eure Hilfe!