Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Zufallszahlen generieren

Forumthread: VBA-Zufallszahlen generieren

VBA-Zufallszahlen generieren
reiner
Hallo Leute,
die Zellen A2, C2, E2, G2, I2 sollen jeweils willkürlich ermittelte Farben (rot, grün, blau, magenta, schwarz, grau, gelb oder orange) die mit einem Zufallsgenerator erzeugt werden, annehmen. Wenn sich aus den 8 genannten Farben eine willkürliche Farbfolge nicht ermitteln lässt, wäre auch eine Ermittlung von Zufallszahlen die anschließend in Farben "umgerechnet" werden, ausreichend.
Es sollte aber wahlweise möglich sein, doppelte Farben zuzulassen bzw. auszuschließen.
Der bislang eingesetzten Zufallsgenerator ist zwar im Prinzip ausreichend, lässt aber keine Möglichkeit Doppelungen zuzulassen bzw. auszuschließen:
Set Bereich = Range("A2:I2")

For Each Zelle In Bereich
Zelle.Value = Int((8000 * Rnd) + 1)
Next Zelle

mfg
reiner
Anzeige
AW: VBA-Zufallszahlen generieren
15.08.2012 09:33:12
{Boris}
Hi Reiner,
ich weiß nicht, ob es einfacher geht, aber das ist das Prinzip der ganzzahligen Zufallszahlen ohne Wiederholung, wie wir es auch auf unserer Seite beschrieben haben.
Vorgehen:
Ein Array von (in Deinem Fall) 8000 Zufallszahlen erzeugen und dann nacheinander die kleinste, zweitkleinste, drittkleinste etc. vergleichen.
Z.B. so:
Sub test()
Dim arr(8000), y(100)
Dim x As Long
Randomize Timer
For x = 1 To 8000
arr(x) = Rnd
Next x
For x = 1 To 100
y(x) = WorksheetFunction.Match(WorksheetFunction.Small(arr, x), arr, 0)
Next x
MsgBox y(1)
End Sub
Das y-Array enthält jetzt 100 ganzzahlige Zufallszahlen im Bereich 1 bis 8000 ohne Wiederholung.
VG, Boris
Anzeige
AW: VBA-Zufallszahlen generieren
15.08.2012 10:19:08
reiner
hallo Boris,
du verweist auf "deine Seite"; wo finde ich diese Seite?
Gibt es dort weiterführende Informationen über die Erzeugung von Zufallszahlen?
mfg
reiner
AW: VBA-Zufallszahlen generieren
15.08.2012 10:36:25
{Boris}
Hi Reiner,
sorry - es geht um http://www.excelformeln.de - aber da geht es halt nur um Formeln und nicht um VBA. Wenn Du dort in der Suche Zufallszahl eingibst, findest Du einiges dazu.
VG, Boris
Anzeige
AW: VBA-Zufallszahlen generieren
15.08.2012 11:37:04
Dirk
Hallo Reiner,
wieviel verschieden Zahlen brauchst Du denn? Sind es wirklich 8000?
Gruss
Dirk aus Dubai
AW: VBA-Zufallszahlen generieren
15.08.2012 12:00:21
reiner
hallo Dirk,
eigentlich geht es nicht um Zahlen sondern um 8 Farben (rot, grün, blau, magenta, schwarz, grau, gelb oder orange); Zahlen sind in diesem Fall nur Hilfsmittel denen abschließend eine Farbe zugeordnet wird.
Es sollen 5 Farben willkürlich in den Zellen A5, C5, E5, G5, I5 angeordnet werden, ohne Doppelungen; Doppelungen sollten aber dennoch(umschaltbar) auch möglich sein.
mfg
reiner
Anzeige
AW: VBA-Zufallszahlen generieren
15.08.2012 12:32:50
{Boris}
Hi Reiner,
Sub test()
Dim arr(7), y(7)
Dim x As Long, Farbe As Long
Randomize Timer
For x = 0 To 7
arr(x) = Rnd
Next x
For x = 0 To 4
y(x) = WorksheetFunction.Match(WorksheetFunction.Small(arr, x + 1), arr, 0)
Select Case y(x)
Case 1: Farbe = 3
Case 2: Farbe = 6
Case 3: Farbe = 12
Case 4: Farbe = 20
Case 5: Farbe = 30
Case 6: Farbe = 40
Case 7: Farbe = 50
Case 8: Farbe = 53
End Select
y(x) = Farbe
Next x
For x = 0 To 4
Cells(5, (x + 1) * 2 - 1).Interior.ColorIndex = y(x)
Next x
End Sub
Die Farbcode musst Du anpassen.
VG, Boris
Anzeige
AW: VBA-Zufallszahlen generieren
15.08.2012 13:28:39
reiner
hallo Boris,
dieser Vorschlag gefällt mir ausgezeichnet, jede Farbe erscheint nur 1 mal.
Ist es sehr aufwendig die Programmierung zu erweitern sodass eine beliebige Farbe doppelt vorkommt?
mfg
reiner
Zufällig eine Farbe doppelt
15.08.2012 17:19:22
{Boris}
Hi Reiner,
Sub test()
Dim arr(7), y(7), z As Long
Dim x As Long, Farbe As Long
Randomize Timer
'8 Zufallszahlen erzeugen und in arr speichern
For x = 0 To 7
arr(x) = Rnd
Next x
'aus den 8 Zufallszahlen die Positionen der 5 kleinsten in y speichern
For x = 0 To 4
y(x) = WorksheetFunction.Match(WorksheetFunction.Small(arr, x + 1), arr, 0)
'und anhand der Position 1 bis 8 eine Farbe zuweisen
Select Case y(x)
Case 1: Farbe = 3
Case 2: Farbe = 6
Case 3: Farbe = 12
Case 4: Farbe = 20
Case 5: Farbe = 30
Case 6: Farbe = 40
Case 7: Farbe = 50
Case 8: Farbe = 53
End Select
y(x) = Farbe
Next x
'Zellen mit den 5 Farben färben
For x = 0 To 4
Cells(5, (x + 1) * 2 - 1).Interior.ColorIndex = y(x)
Next x
'per Zufall eine Farbe doppelt vergeben
z = Int(5 * Rnd)
Do
t = Int(5 * Rnd)
Loop Until t  z
Cells(5, (t + 1) * 2 - 1).Interior.ColorIndex = y(z)
End Sub
VG, Boris
Anzeige
Uups - kein Option Explicit...
15.08.2012 17:36:15
{Boris}
...und schon hab ich die Variable t nicht deklariert:
t As Long
muss es der Vollständigkeit halber im Deklarationsteil noch heißen.
VG, Boris
AW: Uups - kein Option Explicit...
15.08.2012 21:56:19
reiner
hallo Boris,
super, ich bin ehrlich begeistert
vielen Dank
mfg
reiner
;

Forumthreads zu verwandten Themen

AddIn mit VBA aus der Liste entfernen
JogyB

Hallo zusammen.
Ich habe ein AddIn, das von einer größeren Anzahl von Nutzern verwendet wird und ab und an mal upgedatet werden muss. Bislang lief das von Hand, mittlerweile erledige ich das über folgenden Code: ' Tauscht das AddIn aus Private Sub ExchangeAddin(myAddIn As AddIn) Dim addInSt...
13.08.2009 14:20:41
Thread-ID: 1095600
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
Anzeige
Auszug Liste aus Liste - ohne Doppler ohne VBA
nontacky

Hallo Leute,
ich suche eine performante Lösung für ein kleines Problem, das leider meine Fähigkeiten übersteigt:
Ich habe in Tabellenblatt 1 eine Liste von 5000 Zeilen mit teilweise gleichen Einträgen in Spalte A. Jetzt möchte ich in Tabellenblatt 2 nur jene Einträge aus Tabellenblatt 1...
28.07.2011 11:48:24
Thread-ID: 1224038
4 Beiträge
Anzeige
VBA Wert aus DropDown Listen in anderem Feld
Tobias

Hallo,
für folgende Funktion komme ich nicht zur richtigen Lösung:
Ich habe in den Zellen C1, C2, C3, C4, C5 jeweils eine Auswahlliste. Nun Soll wenn ein Wert in C1 vorhanden ist, dieser in E1 angezeigt werden. Soweit so gut :-)
Wenn nun aber ein Wert in C1 und C2 steht, soll der We...
28.11.2013 11:48:47
Thread-ID: 1340365
5 Beiträge
Anzeige
VBA Copy/Paste über ext. Datei und Auswahlliste
Thomas

Guten Abend.
Ich bin wieder total gerädert.
Seit Stunden sitzte ich an folgendem Problem:
ich möchte aus einer Listbox (die über einen Button geöffnet wird) auf eine ausgewählte (externe und bereits geöffnete) Datei zugreifen, und dann von der ausgewählten Datei in einem Tabellenbla...
29.10.2014 22:55:27
Thread-ID: 1389492
4 Beiträge
Liste aus mehreren Dateien mit VBA erstellen
Roman

Hi @all,
ich bräuchte dringend eure Hilfe!
Wie kann ich mit Hilfe eines VBA-Codes Werte aus verschiedenen Excel-Files eines Ordners automatisch in eine neue Excel-Datei importieren.
Die Werte sitzten in jeder Excel-Datei an der gleichen Stelle zB Überschrift in C10 Wert dazu in D10...
30.06.2015 16:15:25
Thread-ID: 1434088
14 Beiträge
Anzeige
VBA AutoFilter Auswahl aus Liste füttern
WalterK

Schönen Sonntag,
ich möchte die Auswahl für den Autofilter aus einer Liste füttern:
die Liste befindet sich im Bereich K3:K?
Und das ist mein Problem, die Liste ist unterschiedlich lang: manchmal stehen Einträge von K3:K10, dann wieder von K3:K4 usw.
Wie muss man das im Code anf...
27.09.2015 16:52:32
Thread-ID: 1449632
7 Beiträge
Datenüberprüfungs liste auslesen in VBA
baschti007

Hallo ich würde gerne in einer bestimmten Zelle die Datenüberprüfungs Liste auslesen mit Vba, da die Tabelle wo die Daten der Liste stehen ausgeblendet wurde.
Geht so etwas ?
Gruß Basti
26.07.2016 08:31:01
Thread-ID: 1506220
5 Beiträge
Liste aus Tabelle generien VBA
Fabi

Hallo zusammen,
versuche mir einen Arbeitsschritt zu vereinfachen...möchte gerne aus einer Tabelle (siehe Datei) eine Liste generieren für jede Nummer...mit VBA wenn möglich...
Hier die Beispiel-Datei:
https://www.herber.de/bbs/user/109947.xlsx
Falls Fragen bitte stellen...
...
09.12.2016 08:48:49
Thread-ID: 1529280
3 Beiträge
VBA-- Liste aus Liste erstellen
Fred

Hallo Experten,
ich habe eine Liste (B16:B23).
Die Liste beinhaltet Namen oder leere Zellen.
Ich möchte nun durch ein VBA erreichen, daß
1. Die Namen (ohne leere Zellen) in Spalte F (ab F16) übertragen werden
2. Darunter nochmals die Namen (ohne leere Zellen) mit dem Zusatz...
28.07.2017 08:45:55
Thread-ID: 1571236
3 Beiträge
VBA Blätter aus Liste drucken
MB12

Hallo zusammen,
im Deckblatt ("Aua") der beigefügten Musterdatei liste ich in Spalte J alle Tabellenblattnamen auf.
Der User soll dann in Spalte I durch eingeben eines "x" auswählen, welche Blätter er in einem Zug drucken möchte.
Ziel: Öffnen der Druckvorschau
Beispieldatei:<...
26.09.2017 13:36:53
Thread-ID: 1582642
4 Beiträge
Per VBA Kopieren und aus Liste befüllen
Lukas

Hallo an alle
Vielleicht wäre jemand so nett und könnte mir helfen, Programmieren ist nicht gerade meine Stärke. Ich möchte per VBA ein Muster für kleine Kärtchen, aus einem Tabellenblatt in ein neues Tabellenblatt untereinander Kopieren. Und mit Daten aus einer Liste befüllen. Es ist sic...
27.11.2017 16:04:20
Thread-ID: 1593970
15 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA-Zufallszahlen und Farben generieren

Schritt-für-Schritt-Anleitung

Um in Excel mit VBA Zufallszahlen und Farben zu generieren, kannst du den folgenden Schritten folgen:

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke mit der rechten Maustaste auf deinen Projektordner im Projekt-Explorer, wähle Einfügen und dann Modul.

  3. Code einfügen: Füge den nachfolgenden VBA-Code in das Modul ein:

    Sub FarbenZufallsgenerator()
   Dim arr(7), y(7), z As Long
   Dim x As Long, Farbe As Long
   Randomize Timer
   ' 8 Zufallszahlen erzeugen und in arr speichern
   For x = 0 To 7
       arr(x) = Rnd
   Next x
   ' aus den 8 Zufallszahlen die Positionen der 5 kleinsten in y speichern
   For x = 0 To 4
       y(x) = WorksheetFunction.Match(WorksheetFunction.Small(arr, x + 1), arr, 0)
       ' und anhand der Position 1 bis 8 eine Farbe zuweisen
       Select Case y(x)
           Case 1: Farbe = 3   ' Beispiel: Rot
           Case 2: Farbe = 6   ' Beispiel: Grün
           Case 3: Farbe = 12  ' Beispiel: Blau
           Case 4: Farbe = 20  ' Beispiel: Magenta
           Case 5: Farbe = 30  ' Beispiel: Schwarz
           Case 6: Farbe = 40  ' Beispiel: Grau
           Case 7: Farbe = 50  ' Beispiel: Gelb
           Case 8: Farbe = 53  ' Beispiel: Orange
       End Select
       y(x) = Farbe
   Next x
   ' Zellen mit den 5 Farben färben
   For x = 0 To 4
       Cells(5, (x + 1) * 2 - 1).Interior.ColorIndex = y(x)
   Next x
   ' per Zufall eine Farbe doppelt vergeben
   z = Int(5 * Rnd)
   Dim t As Long
   Do
       t = Int(5 * Rnd)
   Loop Until t <> z
   Cells(5, (t + 1) * 2 - 1).Interior.ColorIndex = y(z)
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

  • Fehler: "Variable nicht definiert"
    Lösung: Stelle sicher, dass alle Variablen korrekt deklariert sind, insbesondere die Variable t. Füge Dim t As Long im Deklarationsteil hinzu.

  • Fehler: Zellen werden nicht gefärbt
    Lösung: Überprüfe, ob du die richtigen Zellreferenzen in Cells(5, ...) verwendest. Achte darauf, dass das Makro in einem Arbeitsblatt ausgeführt wird, das Zellen in der Zeile 5 enthält.

Alternative Methoden

Du kannst auch Excel-Formeln verwenden, um Zufallszahlen zu generieren. Mit der Formel =RANDBETWEEN(1, 100) kannst du Zufallszahlen zwischen 1 und 100 erzeugen. Für Farben könntest du eine bedingte Formatierung in Verbindung mit einer Zufallszahl verwenden, um Zellen in verschiedenen Farben darzustellen.

Praktische Beispiele

  1. Zufallszahlen zwischen 1 und 6:

    Sub ZufallszahlWurf()
   Dim wurf As Integer
   wurf = Int((6 * Rnd) + 1)
   MsgBox "Der Wurf ergibt: " & wurf
End Sub

  2. Zufallsfarbe aus einer Liste:

    Sub Zufallsfarbe()
   Dim farben As Variant
   farben = Array("Rot", "Grün", "Blau", "Magenta", "Schwarz", "Grau", "Gelb", "Orange")
   Cells(1, 1).Interior.ColorIndex = Application.WorksheetFunction.RandBetween(1, 8)
End Sub

Tipps für Profis

  • Nutze Application.Volatile in deinen Funktionen, um sicherzustellen, dass sie bei jeder Berechnung neu ausgewertet werden.
  • Experimentiere mit verschiedenen ColorIndex-Werten, um eine breitere Palette an Farben zu erhalten.
  • Erstelle ein benutzerdefiniertes Zufallszahlensystem, indem du eigene Algorithmen in VBA implementierst.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass eine Farbe nicht doppelt vergeben wird?
Du kannst eine einfache Logik in deinem VBA-Code verwenden, um die bereits verwendeten Farben zu speichern und zu verhindern, dass sie erneut ausgewählt werden.

2. Ist es möglich, Zufallszahlen aus einer bestimmten Liste zu generieren?
Ja, du kannst ein Array verwenden, das die gewünschten Werte enthält, und dann mit Rnd eine Zufallszahl generieren, um einen Index für das Array auszuwählen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige