Type mismatch (Error 13) was ist das? - Paules-PC-Forum.de

Poeli · 19.06.2005, 22:51

Hallo
Ich bekomme den Fehler: Type mismatch (Error 13) wenn ich hier:

Private Sub Form_Load()
MsgBox ("hallo")
a = InputBox("Zahl", "Zahl eingeben")
If (a = 1) Then
MsgBox ("1")
Else
If (a = 2) Then
MsgBox ("2")
Else
MsgBox ("weder 1 noch 2")
End If
End If
End Sub

bei der Input Box gar nichts hinein schreibe und das fettgedruckte wird gelb angestrichen ich habe das Programm seit heute und naja die Hilfe sagt mir auch nicht viel...

Poeli · 20.06.2005, 07:07

Hehe ich weis es schon selbst hatte vergessen 2 mal ein " zu machen: so geht es

Private Sub Form_Load()
MsgBox ("hallo!")
a = InputBox("Zahl", "Zahl eingeben")
If (a = "1") Then
MsgBox ("1")
Else
If (a = "2") Then
MsgBox ("2")
Else
MsgBox ("weder 1 noch 2")
End If
End If
End Sub

19.06.2005, 22:51	#1 (Direktlink)
Poeli Wohnt hier Registriert seit: 24.10.2004 Alter: 22 Beiträge: 2.962	Type mismatch (Error 13) was ist das? Hallo Ich bekomme den Fehler: Type mismatch (Error 13) wenn ich hier: Private Sub Form_Load() MsgBox ("hallo") a = InputBox("Zahl", "Zahl eingeben") If (a = 1) Then MsgBox ("1") Else If (a = 2) Then MsgBox ("2") Else MsgBox ("weder 1 noch 2") End If End If End Sub bei der Input Box gar nichts hinein schreibe und das fettgedruckte wird gelb angestrichen ich habe das Programm seit heute und naja die Hilfe sagt mir auch nicht viel...

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

20.06.2005, 07:07	#2 (Direktlink)
Poeli Wohnt hier Registriert seit: 24.10.2004 Alter: 22 Beiträge: 2.962	Hehe ich weis es schon selbst hatte vergessen 2 mal ein " zu machen: so geht es Private Sub Form_Load() MsgBox ("hallo!") a = InputBox("Zahl", "Zahl eingeben") If (a = "1") Then MsgBox ("1") Else If (a = "2") Then MsgBox ("2") Else MsgBox ("weder 1 noch 2") End If End If End Sub