chrisyfiae
Grünschnabel
Hallo,
habe hier ne Übung, die auch soweit ganz gut geht. Also es geht um den typischen Lottozahlengenerator. Mein Ergebnis habe ich erstmal in einer MessageBox eingetragen.
Nun möchte ich aber die Ergebnisse in den Zellen A2 bis F2.
Ich habe gelesen, dass es irgendwas mit "Range" ist, aber damit spreche ich ja erstmal nur die Zellen an z.B. Range("A2:F2").Select.
Hier erstmal der Code:
Ich hoffe ihr könnt mir helfen
MfG,
der Chrisy
P.S.: Bin auch leider noch nicht so gut im VBA-Stoff, bin noch fleißig am lernen![Smile :) :)](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f642.png)
habe hier ne Übung, die auch soweit ganz gut geht. Also es geht um den typischen Lottozahlengenerator. Mein Ergebnis habe ich erstmal in einer MessageBox eingetragen.
Nun möchte ich aber die Ergebnisse in den Zellen A2 bis F2.
Ich habe gelesen, dass es irgendwas mit "Range" ist, aber damit spreche ich ja erstmal nur die Zellen an z.B. Range("A2:F2").Select.
Hier erstmal der Code:
HTML:
Private Sub TIPP_Click()
Dim Loza(6) As Integer
Randomize Timer
Dim Zuzahl As Integer, I As Integer, Prüf As Boolean, Kugel As Integer
Kugel = 0
While Kugel < 6
Kugel = Kugel + 1
Do
Zuzahl = 49 * Rnd + 1
Prüf = True
For I = 1 To Kugel - 1
If Loza(I) = Zuzahl Then
Prüf = False
Exit For
End If
Next I
Loop Until Prüf = True
Loza(Kugel) = Zuzahl
Wend
Dim Output As String 'hier werden die Lottozahlen in einem Fenster eingeblendet
Output = "Ihr Tippschein mit folgenden Lottozahlen lautet: "
For I = 1 To 6
Output = Output & Format$(Loza(I)) & " "
Next I
MsgBox Output
End Sub
Ich hoffe ihr könnt mir helfen
MfG,
der Chrisy
P.S.: Bin auch leider noch nicht so gut im VBA-Stoff, bin noch fleißig am lernen
![Smile :) :)](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f642.png)
Zuletzt bearbeitet: