Viele Zufallszahlen ohne Duplikate erzeugen

Für ein Gewinnspiel benötige ich 5.200 zufällige sechsstellige Zahlen. Um anschließend diese Zahlen in einen Word-Serienbrief zu integrieren, brauche ich diese Zahlen in Excel.

Zahlen in beliebiger Menge lassen sich problemlos in Excel mit dem Zufallsgenerator erzeugen. Das birgt jedoch die Gefahr in sich, dass einzelne Zahlen mehrfach auftreten. Mit einigen Hilfsmitteln kann man das aber auch verhindern. Um die Zahlen zu erzeugen, gibst Du zuerst in der Zelle »A1« die folgende Formel ein:



=GANZZAHL(ZUFALLSZAHL()*1000000+1)



Markiere den Bereich bis zur Zeile 5.200 und kopiere mit dem Befehl »Bearbeiten | Ausfüllen | Unten« die Formel. Nun enthält die erste Spalte bereits die gesuchten Zufallszahlen. Um Zahlendoppler auszuschließen, schreibst Du als nächstes in die Zelle »C1« die Formel



=WENN(B1=B2;ôdoppeltô;ôä)



und kopierst diese Formel ebenfalls nach unten bis zur Zeile 5.200. Schreibe nun in die Zelle »D1« diese Funktion:



=ZÄHLENWENN(C:C;ôdoppeltô)



Nun kopierst Du alle Werte der Spalte »A« mit »Bearbeiten | Inhalte einfügen | Werte« in die Spalte »B«. Sortiere die Daten in Spalte »B« dann in aufsteigender Reihenfolge. Falls keine Dubletten auftreten, zeigt das Feld »D1« den Wert Null an. In diesem Fall sind Deine Zufallszahlen fertig. Da die Werte der Spalte »A« inzwischen neu berechnet sind, kannst Du die Zahlen aus Spalte »B« verwenden. Falls Du die Zahlen nicht sortiert haben möchtest, wähle nun »Bearbeiten | Rückgängig: Sortieren«.
Wenn Dubletten in Deinen Zahlen aufgetreten sind, wiederholst Du das Kopieren und Prüfen aus der inzwischen schon neu berechneten Spalte »A«.

Schließlich kopierst Du die Werte aus der Spalte »B« in eine freie Spalte und gibst dieser Spalte das benutzerdefinierte Format »ô000000ô«. Damit erscheinen alle Zahlen mit sechs Stellen und bei Bedarf mit führenden Nullen. Zuletzt löschst Du die anderen Spalten.



www.chip.de/forum/office97