ich möchte auf einer Userform schwierigkeitsgrade erstellen.
Momentan sehen sieht mein Code folgendermassen aus:
Private Sub Label3_Click()
Dim Wert1
Dim wert2
TextBox1.Value = ""
Wert1 = Int((1000 * Rnd) + 1)
wert2 = CLng(Label4.Caption)
Randomize
Label3.Caption = Wert1
lblErg = Wert1 + wert2
End Sub
Private Sub Label4_Click()
Dim Wert1
Dim wert2
TextBox1.Value = ""
Wert1 = CLng(Label3.Caption)
wert2 = Int((1000 * Rnd) + 1)
Randomize
Label4.Caption = wert2
lblErg = Wert1 + wert2
End Sub
wie kan
Grad 1: Anfänger, dann sollen die Zufallszahlen von 1 bis 50 genommen werden
Grad 2: Fortgeschritten, dann sollen die Zufallszahlen von 1 bis 500 genommen werden
Grad 3: Profi, dann sollen die Zufallszahlen von 1 bis 10000 genommen werden.
Wie mach ich das? Ich möchte das ganze anhand von Optionsfeldern lösen..
Es sollte dann so ausehen, wenn das optionsfeld 1 gewählt wurde, dann sollen die beiden code so aussehen:
Private Sub Label3_Click()
Dim Wert1
Dim wert2
TextBox1.Value = ""
Wert1 = Int((50 * Rnd) + 1)
wert2 = CLng(Label4.Caption)
Randomize
Label3.Caption = Wert1
lblErg = Wert1 + wert2
End Sub
Private Sub Label4_Click()
Dim Wert1
Dim wert2
TextBox1.Value = ""
Wert1 = CLng(Label3.Caption)
wert2 = Int((50 * Rnd) + 1)
Randomize
Label4.Caption = wert2
lblErg = Wert1 + wert2
End Sub
wenn das optionsfeld 2 gewählt wurde, dann soll die 50 durch eine 500 ersetzt werden und wenn 3 gewählt, dann eine 10000
ist wahrscheinlich sehr einfach, aber ich habe von vba noch nicht so viel ahnug und deshalb bitte ich um hilfe..:)
Grusschen
Hans