Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 13 - unlogisch
 02.08.2018 19:27:17 David
NotSolved
02.08.2018 19:56:57 amicro2000
Solved
02.08.2018 20:40:09 David
NotSolved
02.08.2018 21:20:32 amicro2000
NotSolved
03.08.2018 09:32:30 Gast6433
NotSolved

Ansicht des Beitrags:
Von:
David		 Datum:
02.08.2018 19:27:17		 Views:
1090		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 13 - unlogisch

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:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
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:

?
1
2
3
4
5
6
7
    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!

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 13 - unlogisch
 02.08.2018 19:27:17 David
NotSolved
02.08.2018 19:56:57 amicro2000
Solved
02.08.2018 20:40:09 David
NotSolved
02.08.2018 21:20:32 amicro2000
NotSolved
03.08.2018 09:32:30 Gast6433
NotSolved