Dim x As Integer            'generrierte Zahl
 
Private Sub UserForm_Click()
 
End Sub
 
Private Sub cmd_generieren_Click()
 
  x = Int((1000 * Rnd) + 1)                     'Zufallszahl generieren
  Worksheets("Tabelle1").Cells(1, 1).value = x  'Spicker
End Sub
 
Private Sub cmd_raten_Click()
 
  Dim r As Integer            'geratene Zahl
 
  r = Val(txt_raten.Text)     'Ratevorschlag vom Benutzer einlesen
 
  If r = x Then
    MsgBox "Sie haben die Zahl erraten"
  ElseIf r < x Then
    MsgBox "Ihre Zahl ist zu klein"
  ElseIf r > x Then
    MsgBox "Ihre Zahl ist zu groß"
  End If
 
End Sub