Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufällige Zelle auswählen

Forumthread: Zufällige Zelle auswählen

Zufällige Zelle auswählen
27.03.2022 15:51:09
Ingo
Hallo
Ich habe eine Excel Tabelle mit ca. 1000 Zeilen. Die Anzahl der Zeilen ändert sich immer wieder mal. Es kommen also welche hinzu oder werden gelöscht. Es gibt aber keine leeren Zeilen in der Tabelle.
Nun möchte ich gerne mit einem Makro erreichen, dass zufällig einer der Zellen aus Spalte A gewählt wird. Natürlich nur bei den Zeilen, die am Ende der Tabelle nicht leer sind.
Und was mir dabei besonders sichtig ist, dass alle Zeilen mit Inhalt bei jeder Makro-Auslösung immer genau gleich gewichtet werden. Es sollen also jedes Mal alle Zeilen die gleiche Chance haben, ausgewählt zu werden. Es sollen nicht irgendwie die Zeilen am Angang und/oder Ende schlechtere oder bessere Chancen haben, als die im mittleren Bereich.
Da ich selber VBA eigentlich fast nur mit dem Makrorecorder "kann", würde ich mich da über Eure Hilfe riesig freuen.
Gruß
Ingo
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufällige Zelle auswählen
27.03.2022 15:57:53
Daniel
Hi
Cells(Worksheetfunction.RandBetween(1, Worksheetfunction.CountA(Columns(1))), 1).Select
Gruß Daniel
AW: Zufällige Zelle auswählen
27.03.2022 16:11:13
Ingo
Hallo Daniel
Ich hatte leider doch noch was vergessen. Entschuldige bitte.
Es sollen nur Zeilen berücksichtigt werden, bei denen die Spalte 19 nicht leer ist.
Gruß
Ingo
Anzeige
AW: Zufällige Zelle auswählen
27.03.2022 19:34:27
Ingo
Hallo
Bitte entschuldige, Doch, natürlich danke ich auch Dir sehr für Deine Hilfe.
Wäre es für Dich in Ordnung, den Code für das Makro hier in eine Antwort zu posten?
Ich öffne nicht so gerne Excel-Dateien aus mir unbekannten Quellen. Ich hoffe, Du bist mir da jetzt nicht böse.
Gruß
Ingo
Anzeige
AW: Zufällige Zelle auswählen
27.03.2022 19:38:23
onur 

Private Sub UserForm_Activate()
Dim ti
Do
DoEvents
TextBox1.Text = Time
TextBox2.Text = Date
Me.Repaint
ti = Timer
While Timer - ti

AW: Zufällige Zelle auswählen
27.03.2022 19:49:45
Ingo
Hallo
Hmmm, das verstehe ich nun leider garnicht. Das hat doch mit meinem Anliegen, eine Zelle in Spalte A per Zufall auszuwählen, nichts zu tun. Oder stehe ich da jetzt irgendwie auf dem Schlauch?
Gruß
Ingo
Anzeige
AW: Zufällige Zelle auswählen
27.03.2022 19:51:49
onur
Sorry, falsches Makro erwischt:

Private Sub CommandButton1_Click()
Dim lz, ze
Randomize Timer
lz = Cells(Rows.Count, 1).End(xlUp).Row
Do
ze = Rnd(Timer) * lz + 1
Loop While Cells(ze, 19) = ""
Cells(ze, 1).Select
End Sub

Zufall bei beiden Methoden gleichwertig?
27.03.2022 20:07:04
Ingo
Hallo
Dein Makro arbeitet ja mit Randomize Timer. Und das vom Daniel mit RandBetween. Sind die beiden Methoden denn sozusagen gleichwertig, was den Zufall angeht?
Ich frage, weil ich vor längerer Zeit mal irgendwo gelesen hatte, dass es bei bestimmten Methoden sowas gibt, wie eine kleinere Berücksichtigung der mittleren Zeilen der Tabelle. Also so, dass eben nicht alle Zeilen jedes Mal exakt die gleiche Chance haben, ausgewählt zu werden.
Gruß
Ingo
Anzeige
AW: Zufall bei beiden Methoden gleichwertig?
27.03.2022 20:35:03
onur
Für deine Ansprüche reicht die Zufälligkeit beider Versionen allemal.
Hier die Zufallsverteilung meines Makros mit 20 verschiedenen Zahlen bei 20 Mill. Durchgängen:

1		1000034
2		1000760
3		1000224
4		1000403
5		999861
6		999959
7		1000136
8		999522
9		999687
10		1000040
11		1000082
12		999713
13		999504
14		999892
15		999705
16		999793
17		999367
18		1001137
19		1000039
20		1000142

Anzeige
AW: Zufall bei beiden Methoden gleichwertig?
27.03.2022 21:23:06
onur
Hier die Ergebnisse mit Zufallsbereich (ähnliche Ergebnisse, nur seltsamerweise fast 30 mal langsamer, obwohl Excelfunktionen in der Regel schneller arbeiten als Makros) bei einer Rechenzeit von 142,5 s statt 5,05 s:

1		1000707
2		1000890
3		1000694
4		1000086
5		999272
6		1000317
7		1001112
8		998281
9		999917
10		999927
11		999636
12		1000219
13		1000511
14		1000283
15		998309
16		999469
17		1000145
18		999625
19		999464
20		1001136

Anzeige
;

Forumthreads zu verwandten Themen

Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Werte aus Liste
Rudi

Liebe Experten,
ich versuche aus einer Tabelle Daten zu übernehmen, wenn eine bestimmte Zelle größer 0 ist. Diese Zelle wird mit einer Formel berechnet.
Versucht habe ich es mit:
If Cells(i, 10) > 0 Then
Aber dadurch werden alle Zeilen übertragen, auch wenn nur die Formel dr...
27.11.2008 12:22:32
Thread-ID: 1028305
12 Beiträge
Listenauswertung per Formel
Sebastian

Hallo allerseits!
Ich habe folgendes Problem, daß ich ohne ein Makro/VBA also nur durch Formeln in der jeweiligen Zelle lösen möchte:
Folgende Tabelle ist gegeben:
-------A----------B----------C-------
1----(leer)----Auto 1-----Auto 2---
2--NUMMER--BETRAG--BETRAG--
...
03.02.2009 17:29:00
Thread-ID: 1046726
3 Beiträge
Anzeige
Wert des letzten Freitags aus einer Liste
Bernhard

Hallo liebe Experten,
stehe mal wieder auf dem berühmten Schlauch und komme nicht weiter! Ich suche eine Formellösung für folgende Aufgabenstellung: In einer Liste sind in Spalte A die Datumswerte und in Spalte C die dazugehörigen Messwerte eingetragen. In einer Zelle gebe ich ein "Suchdatu...
12.03.2009 18:03:54
Thread-ID: 1059610
7 Beiträge
Werte aus einer Liste in einer anderen zählen
C.

Hallo Leute,
folgendes Problem:
Ich habe eine Range (z.B. A2:A10) und möchte wissen, wieviele dieser Werte in einer anderen Liste z.B B2:B4 vorkommen.
Gibt es dafür ne Lösung (ohne für jeden einzelnen Wert ein Countif zu machen und zu addieren, da der eingentliche Zusammenhang etwas...
13.03.2009 10:51:06
Thread-ID: 1059778
3 Beiträge
Werte aus Zelle mit Formel in eine Liste
Peter

HI,
1. Ich habe eine Tabelle, wo in der ersten Zeile in den ersten 5 Zellen Werte erscheinen. Nur diese Werte sollen in der nächsten freien Zeile per Button ohne Formel eingetragen werden.
2. In der Zeile 50 sollen dann diese Werte (Zeile 2 - 49) summiert werden.
Danke im Vorraus
16.03.2009 19:19:10
Thread-ID: 1060895
11 Beiträge
größten x werte aus einer Liste ausgeben
Astrid

Hallo allerseits,
Ich suche eine Formel mit der ich die größten x werte einer Spalte in die nachbarspalte (jeweils in dieselbe zeile) übertragen kann. X kann dabei Werte von 500 - 1000 annehmen, die Spalte hat knapp 9000 Einträge.
Kann mir jemand einen guten Tipp geben? Gerne ohne VBA.....
01.04.2009 12:26:18
Thread-ID: 1065949
6 Beiträge
Wert aus Liste
christian

Hallo,
Wert 1....Wert 2...Wert 3....Wert4 (alles als dropdown)
Diese vier parameter sollen nun in eine große Liste schauen und mir den Wert 5 ermitteln wie?
Lg
Christian
29.04.2009 12:20:45
Thread-ID: 1071865
3 Beiträge
Matrix Auswahl von 4 Werten aus Liste????
4

Hallo Zusammen,
leider ist mein Problem immer noch nicht behoben.
Ich habe mal eine Beispieltabelle hochgeladen.
https://www.herber.de/bbs/user/61508.xls
4 Eingabefelder in echt als dropdown. Es soll nur wenn alle Werte passen das entsprechende aus der Tabele ausgegeben werden.<...
29.04.2009 20:12:52
Thread-ID: 1071991
9 Beiträge
Übernahme von Wert aus Suchliste
Wert

In der Tabelle1 Spalte B wird eine beliebige Zahl in einer beliebigen Zelle eingegeben, hier z.B. die 5 in Zelle B4.
In Tabelle2 Spalte E (Suchspalte) sind feste Werte vorgegeben, die paralell in Spalte F andere feste Werte haben.
Ziel ist es, dass in der Tabelle1, parallel zu Eingabe i...
14.06.2009 19:50:27
Thread-ID: 1081445
4 Beiträge
Anzeige
Abfrage: Wert aus Liste ziehen
Gordon

Moin,
ich habe mal folgende Testdatei hochgeladen: https://www.herber.de/bbs/user/63297.xls
Folgendes Szenario:
Ich habe eine Datenbank. Im Beispiel in den Spalten A bis C eingetragen. A = Nachname, B = Vorname und C = ID.
Nun hätte ich es gerne so, dass wenn ich in die Zelle...
20.07.2009 13:43:30
Thread-ID: 1089973
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zufällige Zelle in Excel auswählen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und die entsprechende Arbeitsmappe.

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

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden VBA-Code in das Modul ein:

    Sub ZufälligeZelleAuswählen()
   Dim lz As Long, ze As Long
   Randomize Timer
   lz = Cells(Rows.Count, 1).End(xlUp).Row

   ' Suche eine zufällige Zeile, bei der die Spalte 19 nicht leer ist
   Do
       ze = Int((lz * Rnd) + 1)
   Loop While Cells(ze, 19).Value = ""

   Cells(ze, 1).Select ' Wähle die Zelle in Spalte A aus
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus, indem du ALT + F8 drückst, das Makro ZufälligeZelleAuswählen wählst und auf Ausführen klickst.

Jetzt wählst Du mit diesem Makro zufällig eine Zelle in Spalte A aus, basierend auf den Bedingungen, die Du festgelegt hast.

Häufige Fehler und Lösungen

  • Problem: "Laufzeitfehler 1004: Die Methode 'Select' für das Objekt 'Range' ist fehlgeschlagen."

    • Lösung: Stelle sicher, dass Du das Makro in einer aktiven Arbeitsmappe ohne geschützte Blätter ausführen möchtest.

  • Problem: Das Makro wählt keine Zelle aus.

    • Lösung: Überprüfe, ob in Spalte 19 (Spalte S) tatsächlich Werte vorhanden sind und keine leeren Zellen vorhanden sind.

Alternative Methoden

Es gibt verschiedene Ansätze, um eine zufällige Zelle in Excel auszuwählen:

  1. Formelbasierte Lösung: Verwende die Funktion INDEX zusammen mit ZUFALLSZAHL. Diese Methode ist jedoch nicht so flexibel wie VBA und berücksichtigt keine Bedingungen.

    =INDEX(A:A, RANG(GANZZAHL(ZUFALLSZAHL()*ZÄHLEN(A:A)), ZÄHLEN(A:A)))

  2. Excel-Zufallszahl-Funktion: Du kannst auch die ZUFALLSBEREICH-Funktion nutzen, um zufällige Zeilen zu generieren, aber es ist schwieriger, die Bedingungen zu erfüllen.

    =ZUFALLSBEREICH(1; ZÄHLEN(A:A))

Praktische Beispiele

  • Beispiel 1: Zufällige Auswahl von Namen in einer Liste. Wenn Du eine Liste von Namen in Spalte A hast, kannst Du das Makro verwenden, um zufällig einen Namen auszuwählen.

  • Beispiel 2: Zufällige Auswahl von Produkten. Hast Du eine Produktliste, kannst Du mit dem gleichen Makro einen zufälligen Artikel auswählen, der in Spalte A aufgeführt ist.

Tipps für Profis

  • Verwende Randomize Timer: Dies sorgt dafür, dass Deine Zufallszahlen nicht bei jedem Ausführen des Makros gleich sind.
  • Erweitere das Makro: Du kannst das Makro so anpassen, dass es weitere Spalten oder Bedingungen berücksichtigt. Zum Beispiel könntest Du zusätzliche Filter für andere Spalten einfügen.
  • Makros speichern: Stelle sicher, dass Du deine Arbeitsmappe als xlsm-Datei speicherst, um die Makros zu behalten.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen Rnd und RandBetween in Excel?
Rnd generiert eine zufällige Zahl zwischen 0 und 1, während RandBetween eine ganze Zahl zwischen zwei von Dir festgelegten Werten zurückgibt. Beide Methoden können zur Auswahl zufälliger Werte verwendet werden.

2. Kann ich das Makro anpassen, um mehrere Zellen auszuwählen?
Ja, Du kannst die Logik im Makro so anpassen, dass mehrere zufällige Zellen ausgewählt werden, indem Du eine Schleife hinzufügst, die die Auswahl mehrmals wiederholt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige