Hallo Wissende,
ich suche nach einer Möglichkeit, aus einer Spaltenmatrix mehrere
Zufallswerte anzuzeigen.
Spalte A
5
6
9
15
26
85
93
125
Hier sind nun 8 Werte vorhanden von denen mehrere per Zufall ausgewählt werden soll.
Es darf natürlich keine 7 oder 18 oder 45 erzeugt werden, sondern nur einer der
vorhandenen Werte. Diese Werte will ich dann zB. in B1, C1, D1…… anzeigen lassen,
wobei hier wiederum kein Wert doppelt vorhanden sein darf.
Die Spalte kann bis zu 350 Werte enthalten, von denen bis zu 6 angezeigt werden sollen.
Kennt hier jemand eine elegante VBA Lösung?
Gruss Pebez
Moin,
das geht auch ohne VBA:
Schreibe in die Zelle, wo die Zufallszahl rein soll:
=INDIREKT(ADRESSE(GANZZAHL(ZUFALLSZAHL()*[x2-x1]+x1);y))
wobei
x1 = Nummer der Zeile, in der der erste Wert der Liste steht
x2 = Nummer der Zeile, in der der letzte Wert der Liste steht
y = Nummer der Spalte
Gruß
Kubi
das geht auch ohne VBA:
Schreibe in die Zelle, wo die Zufallszahl rein soll:
=INDIREKT(ADRESSE(GANZZAHL(ZUFALLSZAHL()*[x2-x1]+x1);y))
wobei
x1 = Nummer der Zeile, in der der erste Wert der Liste steht
x2 = Nummer der Zeile, in der der letzte Wert der Liste steht
y = Nummer der Spalte
Hallo Kubi,
abgesehen davon, dass es nicht funzt, habe ich vergessen zu
erwähnen, dass die Sache über Makro gestartet werden soll
um durch Randomize jedesmal neue Zufallswerte zu erzeugen.
Gruss Pebez
ich suche nach einer Möglichkeit, aus einer Spaltenmatrix
mehrere
Zufallswerte anzuzeigen.
Hier sind nun 8 Werte vorhanden von denen mehrere per Zufall
ausgewählt werden soll.
Es darf … ,sondern nur einer der
vorhandenen Werte. Diese Werte will ich dann zB. in B1, C1,
D1…… anzeigen lassen,
wobei hier wiederum kein Wert doppelt vorhanden sein darf.
Die Spalte kann bis zu 350 Werte enthalten, von denen bis zu 6
angezeigt werden sollen.
Hi Pebez,
k.A. ob das elegant ist:
Option Explicit
'
Sub Auswahl()
Dim C As Byte, Col As New Collection, Zei As Long, Zuf As Long
Zei = Range("A" & Rows.Count).End(xlUp).Row 'oder halt 350
On Error Resume Next 'nötig wg. Col
While Col.Count Gruß
Reinhard
Moin,
abgesehen davon, dass es nicht funzt,
Bei mir schon. Seltsam…
habe ich vergessen zu
erwähnen, dass die Sache über Makro gestartet werden soll
um durch Randomize jedesmal neue Zufallswerte zu erzeugen.
Das ist natürlich dann was anderes.
Gruß
Kubi
Moin,
abgesehen davon, dass es nicht funzt,
Bei mir schon. Seltsam…
Hallo kubi,
die Zufallswerte werden erzeugt, aber manchmal auch doppelt.
Genau das soll nicht passieren.
Trotzdem danke ich dir für deine Überlegungen.
Gruss Pebez
Hallo Reinhard,
genauso habe ich mir das gewünscht.
Ich stelle immer wieder fest, dass deine Antworten
jedesmal sehr gut sind.
Danke(*) dir.
Gruss Pebez