Sub lottozufallszahlen()
 
Dim Zahl As Integer
Dim i As Long
 
 
For i = 1 To 7              'Bereich
 
Zahl = Int((49 - 1) * Rnd + 1)      'generiert Zufallszahl
 
MsgBox Zahl                 'Ausgabe Zufallszahl
 
[A1] = Zahl
 
Next i                      'Wiederhole i mal
 
 
 
End Sub