Probleme mit VB

[ricciardo]

Ich programmier noch nicht lange, aber ich will was machen was ich nicht hinbekomme...!

Ich will ein "If then" Befehl machen. Ne Inputbox erscheint und da steht "Hallo, wie geht's?". Wenn der Benutzer jetzt "Gut" eingibt soll eine Msgbox erscheinen, auf der steht: "COOL!"

Danke

Riccardo

 

[luky37]

versuchs mal so:

If InputBox("Hallo, wie geht's?", "Hallo") = "Gut" Then MsgBox "COOL!", vbInformation

oder in mehreren Zeilen mit Variable:

eingabe = InputBox("Hallo, wie geht's?", "Hallo")

If eingabe = "Gut" Then
    MsgBox "COOL!", vbInformation
End If

mit else:

eingabe = InputBox("Hallo, wie geht's?", "Hallo")

If eingabe = "Gut" Then
    MsgBox "COOL!", vbInformation
Else
    MsgBox "Nicht gut? Schade.", vbInformation
End If

mfg
luky37

 

[cheft]

Ich würde das so lösen:

eingabe = InputBox("Hallo, wie geht's?", "Hallo")
 
If ucase(eingabe) = ucase("Gut") Then
    MsgBox "COOL!", vbInformation
Else
    MsgBox "Nicht gut? Schade.", vbInformation
End If

durch die Verwendung von UCase() ist sichergestellt, dass auch die Eingaben gut/gUt etc richtig erkannt werden. (Natürlich nur, wenn das ganze nicht case-sensitiv sein soll)

 

[ricciardo]

Danke!

Funzt alles und geht super...!