Zufällige Liste in Abhängigkeit generier

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
... folgende . Kopiere die Formeln B1 und B2 ein und dann betätige solange die [F9]-Taste bis in B1:B5 auch 5 Eigenschaften stehen. Diese sind dann auf jeden Fall auch unterschiedlich.

	A	B	C	D	E	F	G	H	I	J	K
1	Paule	E_01	E_01	E_02	E_03	E_04	E_05
2	Kalle	E_06	E_02	E_03	E_01	E_06	E_07	E_05
3	Melinda	E_05	E_02	E_03	E_01	E_05	E_09	E_07	E_08	E_06	E_04
4	Anne	E_08	E_03	E_01	E_02	E_04	E_07	E_08
5	Susi	E_02	E_02	E_03	E_01	E_05	E_04	E_07	E_09

Zelle	Formel
B1	=INDEX(C1:G1;ZUFALLSBEREICH(1;ANZAHL2(C1:K1)))
B2	=WENNFEHLER(INDEX(2:2;AGGREGAT(15;6;SPALTE(C2:K2)/(ZÄHLENWENN(B$1:B1;C2:K2)=0)/(C2:K2>"");ZUFALLSBEREICH(1;5)));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Gruß Werner
.. , - ...

Function Eigenschaften(MöglicheEigenschaften As Range, Optional Ausschluss As Range) As String Application.Volatile Dim strMöE As String Dim T Dim arrMöE strMöE = "|" For Each T In MöglicheEigenschaften If T "" Then strMöE = strMöE & T & "|" Next If Not IsMissing(Ausschluss) Then For Each T In Ausschluss strMöE = Replace(strMöE, "|" & T & "|", "|") Next End If arrMöE = Split(strMöE, "|") Eigenschaften = arrMöE(WorksheetFunction.RandBetween(1, UBound(arrMöE) - 1)) End Function

Hi
als erstes: die Funktion enthält noch einen Fehler:
ersetze mal das If Not IsMissing(Ausschluss) Then durch If Not Ausschluss is Nothing Then
was meinst du mit "Bereich festlegen"?
für den allerersten Namen gibt es ja noch keine Eigenschaften, die ausgeschlossen werden müssen.
daher gibt man den allerersten Namen ohne Ausschlusskriterium an, die folgenden dann mit, wobei immer die bereits verwendeten Eigenschaften in den darüber liegenden Zeilen ausgeschlossen werden.
würdest du eine Überschriftenzeile verwenden, dann könnte man die Formel vereinheitlichen (dann Formel aus B2 für alle Zellen), dann wäre auch die Überschrift der Spalte B ein Ausschlusskriterium, aber das stört dann nicht weiter, weil der Überschriftentext kaum eine Eigenschaft sein dürfte.
du hast hier aber das Problem, dass es Namen gibt die weniger Eigenschaften haben als es insgesamt Namen gibt.
Dadurch kann es vorkommen, dass für diese keine Eigenschaften übrigbleiben, wenn diese im unteren Teil der Tabelle stehen.
um solche Probleme zu vermeiden und sofort zu einem passenden Ergebnis zu kommen solltest du für die Ermittlung der Eigenschaft die Liste so anordnen, dass die Namen mit den wenigsten Eigenschaften oben stehen und die Namen mit den meisten Eigenschaften unten.
Gruß Daniel
ps: und bitte unterlasse das Zippen, lade die Datei direkt hoch. xlsx-Dateien sind schon komprimiert so dass das Zippen nichts bringt, außer mehr Aufwand für alle Beteiligten.

Beliebteste Forumthreads (12 Monate)

Zufällige Liste in Abhängigkeit generier

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread