ich habe folgendes Problem:
Ich möchte ein Rechnungsprogramm machen mit Division. Jetzt habe ich aber das Problem, dass Excel in der Userform einfach zufallszahlen bildet und man dann diese durch einander teilen sollte.
Da es x-beliebige Zahlen sein können, gibt es beinahe imme lösungen mit kommastellen, und das ist ein bisschen schwierig zum im Kopf ausrechnen:)
JEtzt möchte ich, das Wert2 ein Vielfaches von Wert 1 sein muss, so dass ich nur ganze Zahlen als Lösung kriege. Hoffe, dass mir jemand helfen kann.:)
Grüsse Jan Elster
Hier der Code:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
If TextBox1.Value = lblErg.Caption Then
lblresultat.Caption = "richtig"
lblrichtig = CLng(lblrichtig) + 1
TextBox1.Value = ""
Label3_Click
Label4_Click
Else
lblresultat.Caption = "falsch"
lblfalsch = CLng(lblfalsch) + 1
End If
End Sub
Private Sub Label3_Click()
Dim Wert1
Dim wert2
TextBox1.Value = ""
Wert1 = Int((1000 * Rnd) + 1)
wert2 = CLng(Label4.Caption)
Randomize
Label3.Caption = Wert1
lblErg = wert2 / Wert1
End Sub
Private Sub Label4_Click()
Dim Wert1
Dim wert2
Dim x As Integer
TextBox1.Value = ""
Wert1 = CLng(Label3.Caption)
wert2 = Int((1000 * Rnd) + 1)
Randomize
Label4.Caption = wert2
lblErg = wert2 / Wert1
End Sub
Private Sub UserForm_Activate()
Label3_Click
Label4_Click
End Sub
Private Sub CommandButton12_Click()
Unload Me
End Sub
und hier die Datei:https://www.herber.de/bbs/user/60695.xls