Hallo!
Mein Kollege hat mir heute diesen Code gegeben, jetzt bräuchte ich ne erklärung für jeden step den der code macht.Zum Beispiel was beim Dimensionieren passiert und was der zähler macht!
Vielen Dank

Sub Zufallszahl()

Const LottoMin As Long = 1
Const LottoMax As Long = 47

Dim Zahlen() As Long
Dim Zähler As Long
Dim Vorhanden As Boolean
Dim LottoZahl As Long
Dim StartZahl As Integer

Randomize
ReDim Zahlen(0)

Do While UBound(Zahlen) < 6
LottoZahl = Int((LottoMax - LottoMin + 1) * Rnd + LottoMin)
Zähler = 0
Do While Zähler < UBound(Zahlen)
Zähler = Zähler + 1
If Zahlen(Zähler) = LottoZahl Then Exit Do
Loop

If Zahlen(Zähler) <> LottoZahl Or Zähler = 0 Then
ReDim Preserve Zahlen(UBound(Zahlen) + 1)
Zahlen(UBound(Zahlen)) = LottoZahl
End If
Loop

For StartZahl = 1 To UBound(Zahlen) - 1
LottoZahl = StartZahl
For Zähler = StartZahl + 1 To UBound(Zahlen)
If Zahlen(LottoZahl) > Zahlen(Zähler) Then LottoZahl = Zähler
Next Zähler
Zähler = Zahlen(StartZahl)
Zahlen(StartZahl) = Zahlen(LottoZahl)
Zahlen(LottoZahl) = Zähler
Next StartZahl


End Sub

Hallöchen

Du machst es dir aber einfach...

Ich gehe mal davon aus das du keine Erfahrung von VB hast. Wenn du diesen Code nicht selbst analysieren kannst, mache ich dir den Vorschlag alle Deklarationen oder Aufrufe in deinem Code mal hier im Forum zu suchen. Du wirst massenhaft finden.

Der Aufbau ist dafür einfach genug.

Oder frag doch deinen Kollegen!