Dim guenstige_kombinationen As Double
Dim alle_kombinationen As Double
Dim wahrscheinlichkeit As Double
Dim X_aus As Long
Dim bis As Long
Dim wahrscheinlichkeit_mind_2_paar As Double
Dim count_down As Integer
Dim count_down2 As Integer
Dim bei_so_vielen_versuchen_gewinnt_man_einmal___ohne_superzahl As Double
Dim bei_so_vielen_versuchen_gewinnt_man_einmal___mit_superzahl As Double

Sub iteration()
    Offset = 2
    For i = 1 To 49
         m = i + Offset
         X_aus_dbl = ActiveWorkbook.Worksheets("iteration").Range("B" & m).Value
         X_aus = ActiveWorkbook.Worksheets("iteration").Range("B" & m).Value
         Call berechne_wahrscheinlichkeit__
         ActiveWorkbook.Worksheets("iteration").Range("C" & m).Value = (bei_so_vielen_versuchen_gewinnt_man_einmal___mit_superzahl / 1000000)
    Next i
End Sub


Sub berechne_wahrscheinlichkeit__()
bis = X_aus
guenstige_kombinationen = 1
alle_kombinationen = 1
count_down = X_aus
count_down2 = 49

For i = 1 To bis
    guenstige_kombinationen = guenstige_kombinationen * count_down
    alle_kombinationen = alle_kombinationen * count_down2
    count_down = count_down - 1
    count_down2 = count_down2 - 1
Next i

bei_so_vielen_versuchen_gewinnt_man_einmal___ohne_superzahl = alle_kombinationen / guenstige_kombinationen
bei_so_vielen_versuchen_gewinnt_man_einmal___mit_superzahl = 10 * bei_so_vielen_versuchen_gewinnt_man_einmal___ohne_superzahl

End Sub