Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

Anzeige
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
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

300 Forumthreads zu ähnlichen Themen

Filtern kopieren Auswahlkriterium aus Liste
Silvi

Guten Morgen!
Hab da wiedermal ein Problem und will mal versuchen es kurz und knapp zu beschreiben. In einer Datei filtere ich zunächst per VBA die Kostenstellen heraus und stelle sie in ein anderes Tabellenblatt (Kostenstellen), in diesem Blatt werden erstmal alle doppelten Kostenstellen g...
04.02.2009 08:16:00
Thread-ID: 1046863
20 Beiträge
Anzeige
Namen aus Liste auswählen
Volker

Hallo liebe Excelgemeinde.
Wie nennt man es eigendlich, wenn man z. B. im Bereich a5 bis a25 Namen stehen hat und wenn man im Bereich d30 bis d 55 dann bein Eintagen diese o.g. Namen sozusagen "vorgeschlagen" werden. Wenn man z.b. eine " E" eingibt, sollen alle Namen mit "E" als Anfangsbuch...
02.12.2009 18:55:16
Thread-ID: 1121470
3 Beiträge
Multiselect bei Auswahl aus einer Liste Gültigkeit
Thomas

Hallo!
Folgendes Problem.
Ich habe eine Tabelle in der User Werte in bestimmte Zellen auf Basis einer Vorschlagsliste eingeben sollen.
Diese Werte kommen aus einem vordefinierten Listbereich (z.B. 10 verschiedene Attribute).
Ich habe die Tabelle über die Funktion "Gültigkeit" er...
18.12.2009 18:28:17
Thread-ID: 1124952
4 Beiträge
Anzeige
Liste aus Liste generieren Auswahlmöglichkeit
chris

Hallo zusammen
ich habe folgendes Problem: ich sollte aus einer bestehenden Liste eine neue Liste generieren.
Dabei habe ich Kontrollköstchen, welche ich anklicken kann. Somit kann ich die neu zu überführenden Werte auswählen. Aufgrund dessen kann ich dann auch eine Wahr/ Falsch Aussa...
17.11.2010 17:52:59
Thread-ID: 1187336
2 Beiträge
Auswahl aus Liste mit Kennwort
lutz

Hallo Excel-Profis,
ich habe mal eine Frage bzgl. Kennwortschutz:
Verschiedene Mitarbeiter sollen Eingaben in ein Tabellenblatt machen. Am Anfang wird per Makro aus einer Liste der Mitarbeiter abgefragt.
Kann ich irgendwie sicherstellen, dass jeder Mitarbeiter sich selber nur über K...
26.11.2010 10:17:28
Thread-ID: 1188878
7 Beiträge
Name aus einer Liste auswählen
Willi

Hallo Leute,
ich habe ein Problem wie folgt:
aus einer Spalte in der stehen die Lieferanten untereinander. Es gibt
sehr viele doppelte Eintragungen. Mein wunsch ist folgender:
in einem anderen Blatt möchte ich die Umsätze der Lieferanten zusammenfassen.
Dazu will ich in eine...
09.02.2011 12:56:50
Thread-ID: 1199853
5 Beiträge
Zellen zufällig sortieren und kopieren
Tom

Hallo an Alle, die das lesen :-)
Ich habe folgenden vba-Code gefunden:
Sub til() Sheets("Tabelle1").Select Range("a1").Clear Dim ar_rng(), i ar_rng = Range("A1:A33") For i = 1 To 33 ar_rng(i, 1) = Cells(Int(Rnd() * 33 + 1), "E").Value Next [A1:A33] = ar_rng() End Sub Es werden also die...
16.03.2013 16:03:02
Thread-ID: 1304348
3 Beiträge
Zufällige Auswahl aus vorgegeben Werten
Tess

Hallo Ihr Lieben!
Da es hier immer so tolle Lösungen gibt, komme ich heute mal mit einem (aus meiner Sicht) kniffligen Problem auf euch zu.
Ich möchte aus einer Spalte die insgesamt 72 Werte enthält drei verschiedene Mittelwerte berechnen, indem jeweils 24 Werte aus diesen Werten zufäll...
18.07.2013 16:41:18
Thread-ID: 1323134
15 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
19
8
2
3
3
1
6
4
2
14
3
5
4
5
6
1
8
7
2
4
4
1
25
7
6