Werte aus Zeilen, Spalten und Zellen in eine Zelle

Florian · 2015-01-30T00:09:39+00:00

…Ergebnis, Florian,
da die ArtikelNr immer dieselbe ist:
(Größe)S+M+L+XL+2XL(Farbe)Schwarz+Grau+Blau+Rot+Lila+Grün+Braun(Hersteller Farbe)Black+Heather Grey+Charcoal+Deep Navy+Royal+Red+Burgundy+Classic Olive+Chocolate
Wenn man die ArtNrn 3teilt, ergibt sich hingegen folgendes Ergebnis:
293.01 (Größe)S+M+L+XL+2XL(Farbe)Schwarz+Grau(Hersteller Farbe)Black+Heather Grey+Charcoal
293.02 (Größe)S+M+L+XL+2XL(Farbe)Blau+Rot+Braun(Hersteller Farbe)Deep Navy+Royal+Red+Chocolate
293.03 (Größe)S+M+L+XL+2XL(Farbe)Lila+Grün(Hersteller Farbe)Burgundy+Classic Olive
(Hier absichtlich unregelmäßig geteilt, um zu zeigen, dass die ArtikelNrn nicht sortiert vorliegen müssen!)
Wenn dafür folgd KopfZeile angelegt wird, …
Art.No (Größe)(Farbe)(Hersteller Farbe)
…kann mit ff Fmln* gearbeitet wdn (UDF):
1. KopfZeile: =A1 bzw ="("&VJoin(B1:D1;")(")&")"
2. ArtikelNr: @MTRANS(VSplit(VJoin(A$2:A$46;;1)))
3. Attribute: @WECHSELN(WECHSELN(F$1;"";VJoin(WENN(A$2:A$46=E2;B$2:B$46;"");"+";1);1);"";VJoin(WENN(A$2:A$46=E2;C$2:C$46;"");"+";1);1)&VJoin(WENN(A$2:A$46=E2;D$2:D$46;"");"+";1)
* Fmln 2+3 sind MatrixFmln, deren Eingabe mit [[Strg][Umsch]][Enter] beendet wdn muss, woran das von Xl automatisch durch = ersetzte @ erinnern soll!
Hinweis: Unter dem oben angegebenen Link sind zwar beide UDFs zu finden, aber VJoin nur in Vs1.0, die hier nicht das gewünschte Ergebnis liefern würde. Das liefert aber die Vs1.1, die sich ebenfalls im Archiv befindet. Dort steht dann auch noch eine einfache Alternative zu VSplit.
Ich habe diese Variante gewählt, da erfahrungsgemäß eine nur auf Xl-StandardFktt basierende Lösung ellenlange Fmln ergeben würde, wenn sie hier überhpt möglich (bzw vertretbar — darüber denke ich nicht weiter nach, da ich ja Besseres zV habe → viel Erfolg, Werner! ;-] ) wäre.
Morrn, Luc :-?
Besser informiert mit …

…Florian;
in der bisherigen Fml ist der Probleme bereitende VJoin-Teil doch der fett-blau markierte:
@WECHSELN(WECHSELN(F$1;"";VJoin(WENN(A$2:A$40000=E2;B$2:B$40000;"");"+";1);1);"";VJoin(WENN(A$2:A$40000=E2;C$2:C$40000;"");"+";1);1)&VJoin(WENN(A$2:A$40000=E2;D$2:D$40000;"");"+";1)
Genau den solltest du austauschen, wobei eine Variante, bei der dem Bereich vorn und hinten LeerZeichen hinzugefügt wdn und dann 3 LeerZeichen gg + ausgetauscht wdn müssen, ggf besser wäre; also dann insgesamt so:

@WECHSELN(WECHSELN(F$1;"";GLÄTTEN(WECHSELN(VJoin(WENN(A$2:A$40000=E2;" "&
B$2:B$40000&" ";"");;1);"   ";"+"));1);"";VJoin(WENN(A$2:A$40000=E2;C$2:C$40000;
"");"+";1);1)&VJoin(WENN(A$2:A$40000=E2;D$2:D$40000;"");"+";1)

Aber das ist nun nicht mehr nötig, weil ich die Vs1.2 fertig habe, die auch noch wie die Vs1.1 fktioniert, wenn man sie wie bisher argumentiert. Sie benötigt allerdings eine Enumeration, die separat, ganz am Anfang des Moduls angegeben wdn muss. Deshalb zeige ich hier mal den ganzen ModulAnfang:

Option Explicit
Public Enum xlTriState: xlTrue = -1: xlFalse: xlCTrue: End Enum

Rem Verbinden aller Elemente 1es belieb Vektors
'   Arg1: ZBereich or DatenFeld (aus Ausdruck);
'   Arg2: BindeTxt - fehlt LeerZchn, leer ohne,
'   Fwert lokal ListTrennZ; Arg3: fehlt/0 alle,
'   ±1 ohne leere u.Wdholgg, -1 ganze Elemente,
'   +1 auch ElemTeile abhgg v.AuftrittsRhfolge.
'   Achtung! Benötigt Enum[eration] xlTriState!
'   Vs1.2 -LSr -cd:20130904 -1pub:20130905herber -lupd:20150131t
Function VJoin(Bezug, Optional ByVal BindeZ, Optional ByVal NurUngl As xlTriState)
Dim lix As Long, pix As Long, erg, xBez As Variant
On Error Resume Next: NurUngl = Sgn(NurUngl)
If Not IsMissing(BindeZ) Then
If IsError(BindeZ) Then BindeZ = Application.International(xlListSeparator)
Else: BindeZ = " "
End If
With WorksheetFunction
If TypeName(Bezug) = "Range" Then Bezug = .Transpose(.Transpose(Bezug))
If IsError(LBound(Bezug)) Then
VJoin = Bezug
ElseIf CBool(NurUngl) Then
If NurUngl = xlTrue Then ReDim erg(0)
For Each xBez In Bezug
If NurUngl = xlTrue Then
If CBool(lix) Then
pix = 0: pix = .Match(xBez, erg, 0)
If pix = 0 Then ReDim Preserve erg(lix): _
erg(lix) = xBez: lix = lix + 1
Else: erg(0) = xBez: lix = lix + 1
End If
ElseIf Not IsEmpty(erg) Then
If xBez  "" And InStr(erg, xBez) = 0 Then _
erg = erg & BindeZ & xBez
Else: erg = xBez
End If
Next xBez
ElseIf IsError(LBound(Bezug, 2)) Then
erg = Join(Bezug, BindeZ)
Else: Bezug = .Transpose(Bezug)
If IsError(LBound(Bezug, 2)) Then
erg = Join(Bezug, BindeZ)
Else: erg = CVErr(xlErrRef)
End If
End If
End With
If NurUngl = xlTrue Then VJoin = Join(erg, BindeZ) Else VJoin = erg
End Function

Die Fml kann dann auch mit 3.VJoin-Argument=-1 formuliert wdn:
@WECHSELN(WECHSELN(F$1;"";VJoin(WENN(A$2:A$40000=E2;B$2:B$40000;"");"+";-1);1);"";VJoin(WENN(A$2:A$40000=E2;C$2:C$40000;"");"+";-1);1)&VJoin(WENN(A$2:A$40000=E2;D$2:D$40000;"");"+";-1)
Die oben gezeigte, korrigierte alte Fml sollte allerdings das gleiche Ergebnis liefern wie diese hier.
Viel Erfolg! Gruß, Luc :-?

Werte aus Zeilen, Spalten und Zellen in eine Zelle

Forumthread: Werte aus Zeilen, Spalten und Zellen in eine Zelle

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Werte aus Zeilen, Spalten und Zellen in eine Zelle

Forumthread: Werte aus Zeilen, Spalten und Zellen in eine Zelle

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread