Public Sub Zufalls_Zahlen()
Dim n1 As Integer
Dim Zahlen() As Variant
Randomize
ReDim Zahlen(1 To 5)
For n1 = 0 To 4
If Frm_Test.Controls("TextBox" & 1 + n1).Text = "" Then
' generiert 5 Zahlen nach dem Zufallsprinzip
Frm_Test.Controls("TextBox" & 6 + n1).Text = Int((6 * Rnd) + 1)
' und übernimmt die Zahlen in einem Datenfeld
Zahlen(1 + n1) = Frm_Test.Controls("TextBox" & 6 + n1).Text
End If
Next n1
' der folgende Codeteil ist aus der Excel-Hilfe entnommen
' ist aber für mein Ziel irrelevant
' For n1 = LBound(Zahlen) To UBound(Zahlen)
' Debug.Print Zahlen(n1)
' Next n1
End Sub
Option Explicit
Public gezogeneZahlen As Variant
Public Sub Zufalls_Zahlen()
Dim n1 As Integer
Randomize
ReDim gezogeneZahlen(1 To 5)
For n1 = 0 To 4
If Frm_Test.Controls("TextBox" & 1 + n1).Text = "" Then
' generiert 5 Zahlen nach dem Zufallsprinzip
Frm_Test.Controls("TextBox" & 6 + n1).Text = Int((6 * Rnd) + 1)
' und übernimmt die Zahlen in einem Datenfeld
gezogeneZahlen(1 + n1) = Frm_Test.Controls("TextBox" & 6 + n1).Text
End If
Next n1
End Sub
Public Sub Test_Zahlen()
Dim a As Integer
For a = LBound(gezogeneZahlen) To UBound(gezogeneZahlen)
MsgBox gezogeneZahlen(a)
Next
End Sub