Hi zusammen,

ich habe foldenden Code:

Sub Neustart()
Dim n1 As Integer, n2 As Integer
Dim Zeilen As Integer, Spalten As Integer
Dim RngBereich As Range, RngNotizenbereich As Range
Dim ZufallsZahl As Integer

Set RngBereich = _
Range(Cells(StartZeile + 1, StartSpalte + 1), _
Cells(StartZeile + 800, StartSpalte + Spalten))
RngBereich.Clear

Set RngNotizenbereich = Range(Cells(2, 16), Cells(StartZeile, 32))
RngNotizenbereich.ClearContents

Zeilen = 3
Spalten = 9
For n1 = 1 To Zeilen
For n2 = 1 To Spalten
ZufallsZahl = Int((Elemente * Rnd) + 1)
Cells(StartZeile, StartSpalte).Offset(n1, n2).Value = ZufallsZahl
Next n2
Next n1

Cells(StartZeile, StartSpalte).Select
End Sub

Wenn ich das Makro ausführe, erhalte ich beim ersten Mal immer die gleichen Zahlen.
Wie muss ich es anstellen, dass bei einem Neustart auch tatsächlich andere Zahlen erzeugt werden?

Gruß
Siegfried