Zufallszahlen automatisch anlegen

So erzeugen Sie Zufallszahlen per Makro

Sie möchten Ihre Kalkulationen mit Zufallszahlen testen? Dann können Sie die Funktion ZUFALLSZAHL verwenden.

Einfacher machen Sie es sich mit einem Makro. Das folgende Makro erzeugt in einem markierten Bereich blitzschnell Zufallszahlen als Konstanten:

Sub Zufallszahlen()
Dim Zelle As Range
For Each Zelle In Selection
 Zelle.Value = "=rand()"
 Zelle.Value = Zelle.Value
Next Zelle
End Sub

Markieren Sie zuerst einen Zellbereich in einer Tabelle Ihrer Wahl und rufen Sie anschließend das Makro auf. Excel legt nun in jeder Zelle des markierten Bereichs eine Zufallszahl ab. Die Zahlen werden sofort als Konstanten eingetragen. Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann:

Wenn Sie anstelle der Konstanten dafür sorgen möchten, dass die Funktion ZUFALSZAHL in den Zellen erscheint, löschen Sie die folgende Anweisung aus dem Quelltext:

Zelle.Value = Zelle.Value

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html