Liste erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function CD(Bereich As Range, Suchwert As Variant, k As Long) As String Dim D As Range, x As Long x = 1 For Each D In Bereich If D.Value = Suchwert Then If x = k Then CD = D.Address(0, 0) Exit Function End If x = x + 1 End If Next D End Function

…Zusammenspiel mit Xl-Standard-Fktt! Wenn du weder willens noch in der Lage bist, Vglbares zu schaffen, halt einfach deinen Mund! Wie du tickst, hast du ja nun schon oft genug bewiesen. Ansonsten hatte ich einen deiner typischen Kommentare hier tatsächlich eher erwartet als eine AW von Boris…
Wenn ich die Obergrenze (OG) der Zufallsauswahl in meiner Fml durch deine OG-Fml ersetze, wird eine UDF eingespart und mit 9 Fktt gearbeitet, die dann ohne weiteren Schritt das EndErgebnis liefern. Und die beiden verbliebenen UDFs könnten in einer aktuellen Xl-Abo-Version wahrscheinlich auch noch durch die (hier einigermaßen) entsprd neuen StandardFktt ersetzt wdn.
Und die unpassende Erwähnung in meiner AW an Boris hast du natürlich nicht bemerkt… :-]
Luc :-?

Benannte Formel → Zellwert
=AGGREGAT(15;6;(ZEILE(A1:J10)+SPALTE(A1:J10)*100)/(A1:J10=0);ZUFALLSBEREICH(1;ZÄHLENWENN(A1:J10;0)))
ZellFml: =ZEICHEN(Zellwert/100+CODE("A")-1)&"_"&REST(Zellwert;100)
Nur als ZellFml würde das mit einer „Merk“-UDF ebenfalls fktionieren:
=ZEICHEN(Rmd(AGGREGAT(15;6;(ZEILE(A1:J10)+SPALTE(A1:J10)*100)/(A1:J10=0);ZUFALLSBEREICH(1;
ZÄHLENWENN(A1:J10;0))))/100+CODE("A")-1)&"_"&REST(Rmd();100)
Aber es gibt auch noch andere Wege mit weniger oder auch zT anderen UDFs auf anderer Basis, zB als singulare MatrixFml:
{=INDEX(WECHSELN(Rmd(RItems(NoErrRange(A1:J10;;A1:J10=0);;1;0));"$";"_"); ZUFALLSBEREICH(1;ANZAHL(Rmd()))) }
Weiterer UDF-Link: Rmd (Vs1.1) https://www.herber.de/forum/archiv/1592to1596/t1592543.htm#1592585
UDF RItems (ausbaufähig für diverse ZellEigenschaften als Ersatz für ZELLE & Co):

Rem (Ko-)Vektor über alle Zellen 1es Bereichs für 1ne Eigenschaft
'   (Standard: ZellAdresse); Arg1: reg (dis-)kontinuierl Bereich;
'   Arg2ff: Eigensch als VBA-BezeichnText, zugehör Argg n.Bedarf.
'   Vs1.1 -LSr -cd:20190825 -1pub:20190826h -lupd:20190825n

Function RItems(Bereich As Range, ParamArray Eigensch()) Const defProp$ = "address", symDefProp$ = "~" Dim nit As Long, erg, rit As Range On Error GoTo fx: ReDim erg(Bereich.Cells.Count - 1) If UBound(Eigensch) 1 Then RItems = WorksheetFunction.Transpose(erg) Else: RItems = erg End If End With End If fx: If CBool(Err.Number) Then RItems = CVErr(Err.Number) End Function Übrigens, beim Experimentieren mit ZELLE & Co habe ich etwas entdeckt, was uU aber auch Xl aushebeln kann und somit eine gewisse Gefährlichkeit alter XLM-Fktt offenbart, zumal deren Anforderungen ja auch nicht in der Xl-Hilfe beschrieben wdn. Dazu dann später mehr (neuer Thread ggf mit Link hier u/o dort).
Luc :-?

dim Zelle as Range dim strErg as string dim arrErg for each Zelle in Range("A1:J10") if Zelle.Value = 0 Then strErg = strErg & "," & zelle.Address(0, 0) Next arrErg = Split(mid(strErg, 2), ",") Range("A20").Resize(ubound(arrErg, 1) + 1, 1).value = Worksheetfunction.Transpose(arrErg) Msgbox arrErg(Worksheetfunction.RandBetween(0, ubound(arrErg)))

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread