Inhaltsverzeichnis
Zellen mit zufälligen Werten füllen
Der folgende Code füllt einen bestimmten Bereich mit einer Zufallszahl zwischen 0 und 1000:
Sub Randomise_Range(Cell_Range As Range) ' Jede Zelle im Bereich Dim Cell 'Bildschirmwarnungen deaktivieren Application.ScreenUpdating = False For Each Cell In Cell_Range Cell.Value = Rnd * 1000 Nächste Zelle Application.ScreenUpdating = True End Sub
Die Codes „Application.ScreenUpdating =FALSE“ und „Application.ScreenUpdating = TRUE“ dienen zum Aus- und Einschalten von Bildschirmwarnungen – wodurch der Code viel schneller ausgeführt werden kann.
Es kann über ein Click-Ereignis eingerichtet werden, wobei die Hauptroutine den Bereich vorgibt:
Private Sub CommandButton1_Click() Randomise_Range (Sheets("Sheet3").Range("A1:T8000")) End Sub
In diesem Fall werden die Zellen A1:T8000 auf Blatt 3 mit Zufallszahlen gefüllt - sobald auf die Befehlsschaltfläche 1 geklickt wird.
Laden Sie die .XLSM-Datei hier herunter
