In eine Zelle mit Inhalt kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Vilen (& Werner);
natürlich habe ich keine spezielle UDF hierfür, sondern benutze uU mehrere universelle neben Xl-Standard-Fktt in einer Formel. Hier könnte sich bspw folgende Fml anbieten:
=MxJoin(NoErrRange(A1:V1;;bedingung);",") (ggf als singulare MatrixFml)
Es gäbe aber auch noch andere Möglichkeiten, wie hier am Bsp einer Zusammenstellung der Namen griechischer Buchstaben und ZahlZeichen pro in ihnen enthaltenen lat Buchstaben:

alpha

beta

gamma

delta

epsilon

vau

zeta

alpha,beta,gamma,delta,vau,zeta,eta,theta,iota,kappa,lambda,qoppa,sigma,tau,omega,sampi

beta,lambda

chi

delta,lambda

beta,delta,epsilon,zeta,eta,theta,omega

gamma,sigma,omega

alpha,theta,rho,phi,chi

epsilon,iota,xi,omikron,pi,sigma,ypsilon,phi,chi,psi,sampi

kappa,omikron

alpha,delta,epsilon,lambda,ypsilon

gamma,lambda,my,omikron,sigma,omega,sampi

epsilon,ny,omikron,ypsilon

epsilon,iota,omikron,qoppa,rho,ypsilon,omega

alpha,epsilon,kappa,pi,qoppa,ypsilon,phi,psi,sampi

qoppa

omikron,rho

epsilon,sigma,ypsilon,psi,sampi

beta,delta,zeta,eta,theta,iota,tau

vau,tau

vau

my,ny,ypsilon

zeta

B2[:B27]: {=VJoin(WENN(MTRANS(TxEval(WECHSELN("CountIf(#,""*"&A2&"*"")";"#";ADRESSE(ZEILE(A$1);SPALTE(A:AA);4))));A$1:AA$1;"");",";-1)}

sing MxFml 123 Zeichen : 9 Funktionen : CountIf ADRESSE MTRANS SPALTE TxEval VJoin WECHSELN WENN ZEILE

B2[:B27]: {=WENNFEHLER(MxJoin(NoErrRange(A$1:AA$1;;TxEval(WECHSELN("CountIf(#,""*"&A2&"*"")";"#";ADRESSE(ZEILE(A$1);SPALTE(A:AA);4))));",");"")}

sing MxFml 132 Zeichen : 9 Funktionen : CountIf ADRESSE MxJoin NoErrRange SPALTE TxEval WECHSELN WENNFEHLER ZEILE

B2[:B27]: =WENNFEHLER(MxJoin(NoErrRange(A$1:AA$1;;VLike(A$1:AA$1;"*"&A2&"*"));",");"")

normale Fml 76 Zeichen : 4 Funktionen : MxJoin NoErrRange VLike WENNFEHLER

In Zeilen 28:33 stehen Paare aus möglicher Fml und ihren (Meta-)Daten, wobei in dieser jeweils 2.Zeile die verwendeten UDFs unterstrichen wurden, weil sie gleichzeitig maussensitive Links zu ihren Pgmm im Archiv bzw in einer BspDatei sind. Falls die kürzeste Fml mit der UDF VLike verwendet wdn soll, ist zu beachten, dass die verlinkte Version nicht die aktuelle ist und noch einen Fehler enthält, der hier ergebniswirksam wird. Der PgmTeil …

        If IsError(LBound(avBez, 2)) Then
lb(0) = LBound(avBez): ub(0) = UBound(avBez)
hVkt(0) = True: ReDim erg(ub(1) - lb(1))

…nach If IsArray(Bezug) Then ist falsch indiziert und muss so lauten:

        If IsError(LBound(avBez, 2)) Then
lb(0) = LBound(avBez): ub(0) = UBound(avBez)
hVkt(0) = True: ReDim erg(ub(0) - lb(0))

Außerdem ist die hier pgm-intern verwendete UDF VPairs wahrscheinl zwar in einer ProjektDatei von 2010 enthalten, aber nur schwer zu finden. Da sie aber hier nicht benötigt wird, müssen nur noch die darauf bezogenen PgmTeile im o.g. Abschnitt ab If IsArray(txm) And IsArray(txp) Then nach den jeweils nachfolgenden Exit Function auskommentiert bzw entfernt wdn (die ElseIf-Zeilen stehen lassen!). Das Pgm wird dann nur beim Else: fortgesetzt. Ohne Auskommentierung/Entfernung könnte sich die Syntax-Prüfung an der fehlenden UDF stören. Diese Korrektur sollte dann der aktuellen Version 1.4 per lupd: 20170829t entsprechen, was auch in den Hinweisen vor dem PgmKopf geändert wdn sollte.
Im Übrigen sehe ich das ganze Projekt als eine Art PersonalEinsatzPlan (PEP) an, der zusätzlich ausgewertet wdn soll. Was auf PEP-Gebiet möglich ist, kann man auch an folgendem Projekt sehen:
Datei: https://www.herber.de/bbs/user/114632.xlsb
Thread1: https://www.herber.de/forum/archiv/1540to1544/t1543467.htm#1543467
Thread2: https://www.herber.de/cgi-bin/callthread.pl?index=1546213#1546213
Thread3: https://www.herber.de/forum/archiv/1548to1552/t1551248.htm#1551248
Die Threads sind untereinander verlinkt und besonders der 1. und der 3. enthalten gg Ende auch noch zusätzliche Hinweise. Diese beiden Threads sind allerdings extrem lang (bis über 3 Monate!) und enthalten auch viele reine Anker-Beiträge!
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

In eine Zelle mit Inhalt kopieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In eine Zelle mit Inhalt kopieren

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

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread