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
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
