Option Explicit
Dim intZufallszahl As Integer
Dim intGetippteZahl As Integer
Dim intAnfangswert As Integer
Dim intEndwert As Integer
Dim I As Byte 'zählt die Versuche
Const Anzahlversuche As Byte = 10
Dim Start As Boolean ' dient zur einmaligen Ausführung
 
 
Private Sub cmdNeu_Click()
'Neustarten
txtAnfangswert.Text = ""
txtEndwert.Text = ""
txtZahl.Text = ""
txtAnfangswert.SetFocus
lstGetippteZahlen.Clear
lblAusgabe.Caption = ""
 
Start = False
    I = 1
 
 
 
End Sub
 
Sub UserForm_Initialize()
'Initialisierung
I = 1
Start = False
Randomize
 
 
 
End Sub
 
Private Sub cmdÜberprüfen_Click()
'Eingabe
If Not (Start) Then
    intAnfangswert = txtAnfangswert.Value
    intEndwert = txtEndwert.Value
    'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    intZufallszahl = Int((intEndwert - intAnfangswert + 1) * Rnd + _
      intAnfangswert)
    Start = True
End If
If I <= Anzahlversuche Then
    intGetippteZahl = txtZahl.Value
    'Vergleich
    If intGetippteZahl = intZufallszahl Then
        lblAusgabe.Caption = "Glückwunsch, Sie haben mit " & I & " Versuchen" & _
          "richtig geraten!"
    Else
        If intGetippteZahl < intZufallszahl Then
            lblAusgabe.Caption = "Gesuchte Zahl ist größer"
        Else
            lblAusgabe.Caption = "Gesuchte Zahl ist kleiner"
        End If
        txtZahl.Text = ""
        txtZahl.SetFocus
        I = I + 1
 
'Hier wird gezeigt welcher Versuch es ist.
        lblZahl.Caption = "" & I & ". Versuch von 10"
 
    End If
Else
    lblAusgabe.Caption = "Pech, Sie haben mit " & Anzahlversuche & " Versuchen" & _
      "nicht richtig geraten!"
End If
 
' Ausgabe Listbox
    lstGetippteZahlen.AddItem intGetippteZahl
 
 
 
End Sub
Private Sub cmdEnde_Click()
    End
End Sub