Hi..
Hab wieder ein doofes Problem, kaue aber schon über 40 Minuten drauf rum.
Ich habe eine Aufgabe bekommen, eine Zufallszahl zu bestimmen, das klappt.
Danach sollte eine Eingabe (Integer) überprüft werden, ob der Input höher oder niedriger ist, als die Zufallszahl.
Es funktioniert soweit, dass man einfach Treffer und "zu niedrig" angezeigt bekommt.
"Zu hoch" gibt es merkwürdigerweise irgendwie gar nie.
Ich bin für jede Hilfe dankbar, Danke...
VBA-Code:
Code
Option Explicit
Dim iInt As Integer
Private Sub UserForm_Initialize()
' Zufallszahl bestimmen
' Zufallsgenerator intialisieren
Randomize
' Zufallszahl zwischen 1 und 100 definieren
iInt = Int(Rnd() * 100) + 1
'MsgBox (iInt) ' nur zu Testzwecken
End Sub
Private Sub btncalc_Click()
' Berechnung
If IsNumeric(txin.Text) Then
Select Case txin.Text
Case Is < iInt
txout.Text = "Zu tief...!"
Case Is > iInt
txout.Text = "Zu hoch...!"
Case Is = iInt
txout.Text = "Super, genau geraten, getroffen.. ;)"
End Select
Else
txin.Text = ""
txout.Text = "Ihre Eingabe ist keine Zahl, bitte korrigieren, Dezimalzahlen kommen nicht vor."
End If
End Sub