|
Hallo Community,
ich bin Hobby-Programmierer und habe mit Hilfe von ChatGPT einen Lottozahlengenerator erstellt – ohne Duplikate und ganz ohne Schleifen.
Das Ergebnis finde ich wirklich interessant. Hier der Code:
Sub LottoZahlen_Waagerecht_Array()
Dim s, a&, b&, f$
s = Array(1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48)
Randomize
a = s(Int(Rnd * (UBound(s) + 1)))
b = Int(Rnd * 49)
f = "=MTRANS(1+REST(" & a & "*(SPALTE(A1:F1)-1)+" & b & ";49))"
With Range("A1").Resize(1, 6)
.FormulaLocal = f
.Value = .Value
End With
End Sub
Was sind denn eure Erfahrungen mit ChatGPT?
Liebe Grüße
Michael
|