| A | B | C | |
| 1 | |||
| 2 | |||
| 3 | |||
| 4 | |||
| 5 | |||
| 6 | |||
| 7 | |||
| 8 | |||
| 9 | |||
| 10 |
Sub Zufall()
Dim i As Integer
Application.ScreenUpdating = 0
Cells(1, 1) = Int(9000000 + Rnd * 1000000)
For i = 2 To 5000
Do
Cells(i, 1) = Int(9000000 + Rnd * 1000000)
Loop Until Cells(i, 1) Cells(i - 1, 1)
Next
Application.ScreenUpdating = -1
End Sub
Public Sub DoppelteSuchen()
Dim lZeile As Long
Application.ScreenUpdating = 0
For lZeile = 1 To 5000
If Application.WorksheetFunction.CountIf(Columns(1), Range("A" & lZeile).Value) > 1 Then
Range("B" & lZeile).Value = "doppelt " & _
Application.WorksheetFunction.CountIf(Columns(1), Range("A" & lZeile).Value)
End If
Next lZeile
Application.ScreenUpdating = -1
End Sub
Sub ZufList()
Dim arrZ, ii As Long
arrZ = Zufallsliste(5000)
For ii = 1 To 5000
arrZ(ii) = arrZ(ii) + 9000000
Next ii
Cells(1, 1).Resize(5000) = Application.Transpose(arrZ)
End Sub
Function Zufallsliste(intI As Integer)
' Zahlen 1 bis Anzahl ohne Wiederholungen - ingUR 04.12.2006
' www.herber.de/forum/archiv/824to828/t825988.htm
Dim ii As Long, iLosNr As Long, arrOK() As Boolean, arrLos() As Long
ReDim arrOK(1 To intI), arrLos(1 To intI)
Randomize
For ii = 1 To intI
Do
iLosNr = Int((intI * Rnd) + 1)
If Not arrOK(iLosNr) Then arrLos(ii) = iLosNr: arrOK(iLosNr) = True
Loop Until arrLos(ii) > 0
Next
Zufallsliste = arrLos
End Function
Zufallszahlen generieren:
=ZUFALLSBEREICH(9000000;9999999)Dubletten vermeiden:
=9000000 + GANZZAHL(ZUFALLSZAHL() * 1000000)Überprüfung der Einzigartigkeit:
=SUMME(1/ZÄHLENWENN(A2:A5001;A2:A5001))Strg + Shift + Enter.Sub Zufall()
Dim i As Integer
Application.ScreenUpdating = 0
Cells(1, 1) = Int(9000000 + Rnd * 1000000)
For i = 2 To 5000
Do
Cells(i, 1) = Int(9000000 + Rnd * 1000000)
Loop Until Cells(i, 1) <> Cells(i - 1, 1)
Next
Application.ScreenUpdating = -1
End SubZufällige Auswahl aus einer Liste:
Verwende die Funktion =ZUFALLSBEREICH(1;ANZAHL(A:A)), um zufällig einen Index aus einer Liste zu wählen.
Zahlen zufällig anordnen:
Wenn du eine Liste von Zahlen hast und diese zufällig sortieren möchtest, kannst du eine Hilfsspalte mit =ZUFALLSZAHL() verwenden und dann nach dieser Spalte sortieren.
ZUFALLSBEREICH und CHAR verwenden.1. Wie kann ich sicherstellen, dass keine zwei Zahlen hintereinander gleich sind? Mit VBA kannst du sicherstellen, dass die generierten Zufallszahlen nicht direkt aufeinander folgen.
2. Was ist der Unterschied zwischen ZUFALLSBEREICH und RANDBETWEEN?
ZUFALLSBEREICH ist eine Funktion in Excel 2007 und höher, während RANDBETWEEN eine Standardfunktion in älteren Versionen ist. Stelle sicher, dass das Analyse-Tool aktiviert ist, um ZUFALLSBEREICH verwenden zu können.
3. Wie kann ich einen Zufallsbereich für nur siebenstellige Zahlen erstellen?
Durch die Verwendung von ZUFALLSBEREICH(9000000;9999999) stellst du sicher, dass alle generierten Zahlen siebenstellig und mit 9 beginnen.
4. Kann ich mit Excel auch Zufallszahlen aus anderen Bereichen generieren?
Ja, mit der Funktion ZUFALLSBEREICH kannst du jeden gewünschten Bereich definieren, um Zufallszahlen zu generieren.