VBA verketten mit 2 Bereichen/Kriterien

Function verketten2(Suchbereich As Range, Suchbegriff As String, Ergebnisbereich As Range, _ Optional Trennzeichen As String) As String Application.Volatile Dim C As Range, S As String For Each C In Suchbereich If C = Suchbegriff Then S = S & C.Offset(0, Ergebnisbereich.Column - Suchbereich.Column) & Trennzeichen End If Next C If Len(S) = Len(Trennzeichen) Then S = "" Else S = Left(S, Len(S) - Len(Trennzeichen)) End If verketten2 = S End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…normalerweise nicht anpassen muss oder sollte, #GFX,
sondern in einer ZellFml oder einer (rahmenden) SubProzedur so verwendet, wie sie ist. Xl-Fktt kannst du ja auch nicht ändern, nur nutzen!
Solche Verkettungs-UDFs gibt's noch mehr im Archiv, sogar mehrere dieses Namens. Und dann noch welche, die anders heißen, zB Verbinden oder englisch etwas mit Concate bzw Join. Letzteres wäre wohl auch das hier Angestrebte, wofür es allerdings inzwischen 2 neue Xl-Fktt gibt, TEXTKETTE (ohne Trennzeichen) und mit etwas mehr Möglichkeiten (u.a. Trennzeichen) TEXTVERKETTEN. Aber da du ja der Meinung bist, deine Xl-Version sei ohne Relevanz, kann man die dir nicht oW empfehlen, zumal du deine Problematik nicht mal annähernd ausreichend schilderst.
Gruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Public Function KKVERKETTEN(Bereich_Kriterium1, Bereich_Kriterium2, Kriterium1, Kriterium2, _ Bereich_Verketten) Dim mydic Dim L As Long Set mydic = CreateObject("Scripting.Dictionary") For L = 1 To Bereich_Kriterium1.Count And Bereich_Kriterium2.Count If Bereich_Kriterium1(L) = Kriterium1 And Bereich_Kriterium2(L) = Kriterium2 Then mydic(L) = Bereich_Verketten(L) End If Next KKVERKETTEN = Join(mydic.items, ", ") End Function

…#GFX;
hatte leider nicht eher Zeit dafür, da ich mehr Aufwand erwartet hatte, aber wollte es mal mit meinen Tools versuchen, was ebenfalls gelang. Allerdings hatte ich 2 UDFs verwendet, weil mich deine TestKriterien irritierten, da sie in Tab2 2stellig-gleich vorliegen und nicht 1stellig wie in den Tab1-Titeln. Außerdem hattest du doch geschrieben, dass die Reihenfolge erhalten bleiben soll, was sich wohl nur auf die flfd Angabe der Textprojekt-ID in Tab1 bezog, was mangels Datei keiner wissen konnte und das auf die willkürliche Reihenfolge in der QuellTab (2) bezogen hätte. Allerdings treten die Teststellungscodes auch mehrfach in der ZielTab (1) auf, so dass anzunehmen ist, dass das Testprojekt entscheidend ist. So hätte ggf vor dem Verketten noch sortiert wdn müssen, um deine Vorgabe zu erreichen, was wohl auch mit deiner zusätzlichen, VBS.Dictionary-UDF nicht oW erreicht wird. Hierfür könnte man eine QuickSort-UDF zusätzlich verwenden, was ich nachfolgend aber nicht einbeziehe, weil ich bisher keine Sortier-UDFs publiziert habe und mir die Vorbereitung vorliegender UDFs dafür jetzt zu aufwendig wäre. Ansonsten war das schon mal eine gute Wahl, die gleiche Verkettungen ignorieren könnte, wenn man diese Möglichkeit berücksichtigen würde.
Man sieht also, viel Raum für Missverständnisse, sogar mit BspDatei! Nur zur Info noch meine singulare MatrixFml mit den o.g. 2 UDFs:
C2: {=VJoin(WENN((Tabelle2!$A$2:$A$17=$A2)*VLike(Tabelle2!$D$2:$D$17;"*"&RECHTS(C$1)&"*");Tabelle2!$C$2:$C$17;"");", ";-1)}
Morhn, Luc :-?

Beliebteste Forumthreads (12 Monate)

VBA verketten mit 2 Bereichen/Kriterien

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

226 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA verketten mit 2 Bereichen/Kriterien

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

226 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread