Wir wünschen allen Forenteilnehmern ein frohes Fest und einen guten Rutsch ins neue Jahr. x

VBA Split-Arrays nach VLOOKUP Fkt sortieren
#11
Hm ... =TEXTTEILEN({"1 2";"3 4"};" ") kann nämlich nicht

1 2
3 4 

(in 4 eigenen Zellen) erzeugen. Deswegen frage ich mich, wie TEXTVOR u/o TEXTNACH ihm das doch noch rausleiert.

Ich habe Deine Erkenntnis ---hier--- gewürdigt.
WIN/MSO schicken angeblich alle 5 Sekunden Deinen Screen heim zu Papa (recall-Klausel). 
Antworten Top
#12
Zitat:Hm ... =TEXTTEILEN({"1 2";"3 4"};" ") kann nämlich nicht
Das klappt nicht. Hatte ich auch viel versucht.
Aber braucht es auch nicht, da durch Nachzeile ja jede Zeile einzeln brechnet wird.

Zitat:Ich habe Deine Erkenntnis ---hier--- gewürdigt.
Gerne.
Antworten Top
#13
Zeig doch mal mit NACHZEILE. Klappt bei mir nicht.
WIN/MSO schicken angeblich alle 5 Sekunden Deinen Screen heim zu Papa (recall-Klausel). 
Antworten Top
#14
Wie meinst du die Frage. Nachzeile ist in der Formel #8 drin. Und die LAMBDA innerhalb wird für jede Zeile ausgeführt.
Antworten Top
#15
Also mit NACHZEILE und TEXTTEILEN. Ich habe es nur ZUSÄTZLICH mit den von Dir ins Spiel gebrachten TEXTVOR u/o TEXTNACH hinbekommen.
WIN/MSO schicken angeblich alle 5 Sekunden Deinen Screen heim zu Papa (recall-Klausel). 
Antworten Top
#16
Hallo beisammen,

ich danke euch. Die Lösungen passen sehr gut. 

Beste Grüße

Hallo,

eine Frage habe ich dann noch:


Wie schaffe ich es dass mir die werte aus folgendem denn in einer Zelle wieder gegeben werten?


Auf diese Weise füllte er die Werte ich die Zeile.

Tabelle11.Cells(2 + k, 6) = Split(Tabelle3.Cells(9 + k, 7), " ")(i) & ", " & WorksheetFunction.VLookup(Split(Tabelle3.Cells(9 + k, 7), " ")(i), Tabelle18.Range("A2:D310"), 4, 0)


ich habe es so
Tabelle11.Cells(2 + k, 6) = Split(Tabelle3.Cells(9 + k, 7), " ")(0) & ", " & WorksheetFunction.VLookup(Split(Tabelle3.Cells(9 + k, 7), " ")(0), Tabelle18.Range("A2:D310"), 4, 0) _
& ", " & Split(Tabelle3.Cells(9 + k, 7), " ")(1) & ", " & WorksheetFunction.VLookup(Split(Tabelle3.Cells(9 + k, 7), " ")(1), Tabelle18.Range("A2:D310"), 4, 0) _
& ", " & Split(Tabelle3.Cells(9 + k, 7), " ")(2) & ", " & WorksheetFunction.VLookup(Split(Tabelle3.Cells(9 + k, 7), " ")(2), Tabelle18.Range("A2:D310"), 4, 0)

aber da manche Zellen bis zu 15 Werte haben können, suche ich etwas eleganteres

Danke
Antworten Top
#17
Hi

Eigene Lösungsversuche sind ok.
Ich würde mich aber mit einem Lösungsvorschlag leichter tun mit einen Beispiel vorliegender Rohdaten und einem Wunschergebnis.
Des weiteren bin ich bei Dir von Excel 2016 ausgegangen.

Gruß Elex
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste