Sykwitit
Forum Master
Hallo!
Also ich muss ein Lotto Programm in VBA in Excel schreiben.
Es muss erstmals ein Feld mit den Zahlen von 1-49 generiert werden:
Das funktioniert auch.
Jetzt hab ich dann Zufallszahlen generiert
funktioniert auch. ABER ich schreibe die Werte in die 8 Zeile rein. Aber die Aufgabe will, dass ich die generierten Werte in der Tabelle mit Rot hintersehe und dann in eine Textdatei ausgeben soll.
Einer ne Idee wie das geht?
Also ich muss ein Lotto Programm in VBA in Excel schreiben.
Es muss erstmals ein Feld mit den Zahlen von 1-49 generiert werden:
Code:
Sub Lotto()
Dim a As Integer, b As Integer
Dim zahl As Integer
zahl = 1
For Z = 1 To 7
For s = 1 To 7
Cells(Z, s).Value = zahl
zahl = zahl + 1
Next
Next
End Sub
Jetzt hab ich dann Zufallszahlen generiert
Code:
Sub Zufall()
Dim zuf As Integer
Dim Field(1 To 49) As Integer
For i = 1 To 49
For Z = 1 To 6
Cells(8, Z) = Int(Rnd * 49) + 1
Next
Next
Einer ne Idee wie das geht?