Private Const MaxZNumbers As Long = 6
Private ZNumbers As Collection
 
Private Sub Command1_Click()
   Dim i As Long, n As Long
   If Not ZNumbers Is Nothing Then Set ZNumbers = Nothing
   Set ZNumbers = New Collection
   Randomize Timer
   On Error Resume Next
   Do
      n = Int(Rnd * 49) + 1
      ZNumbers.Add n, "K" & CStr(n)
      If Err.Number = 0 Then i = i + 1
   Loop While i <= MaxZNumbers
End Sub
 
'Show the numbers
Private Sub Command2_Click()
   Dim i As Long
   For i = 1 To ZNumbers.Count
      MsgBox ZNumbers(i)
   Next
End Sub

Randomize Timer: l = Int((100 * Rnd) + 1)

Zitat:

Bevor Sie Rnd aufrufen, verwenden Sie die Randomize-Anweisung ohne Argument, um den Zufallszahlengenerator mit einem Startwert zu initialisieren, der auf dem Systemzeitgeber basiert

Gruß
Dirk

--
?Get it right the first time

'Zufallsgenerator zufälliger machen ;-)
Randomize Timer
'Variable Deklarieren
Dim VarZufall as integer
'Jetzt der Variable VarZufall einen Zufallswert zwischen 1 und 100 zuweisen:
VarZufall = Int((100 * Rnd) + 1)

Text1.Text=VarZufall

Spieler1 = 6
Spieler2 = 19 'diese Werte werden durch den Zufallsgenerator erzeugt
 
UserForm1.Controls("txtSpielerA" & Format(Spieler1, "00")).Text = Spieler1
UserForm1.Controls("txtSpielerB" & Format(Spieler1, "00")).Text = Spieler2
 
UserForm1.Controls("txtSpielerA" & Format(Spieler2, "00")).Text = Spieler2
UserForm1.Controls("txtSpielerB" & Format(Spieler2, "00")).Test = Spieler1