Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhalt speziell transportieren

Inhalt speziell transportieren
08.01.2024 09:49:03
Thorsten136
Ist es Möglich dieses ausgangs Format:

Brand Code Brand Code Brand Name Productgroup
1 A123 Hersteller A Produkt A
1 B123 Hersteller B Produkt A
1 C123 Hersteller C Produkt A
1 D123 Hersteller D Produkt A
2 X123 Hersteller X Produkt B
2 Y123 Hersteller Y Produkt B
2 Z123 Hersteller Z Produkt B
2 V123 Hersteller V Produkt B


In dieses Format zu bekommen?

Brand Code Description Brand Name 1 Brand 1 Code Brand Name 2 Brand 2 Code Brand Name 3 Brand 3 Code Brand Name n Brand n Code
1 Produkt A Hersteller A A123 Hersteller B B123 Hersteller C C123 Hersteller D D123
2 Produkt B Hersteller X X123 Hersteller Y Y123 Hersteller Z Z123 Hersteller V V123


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt speziell transportieren
08.01.2024 10:35:28
onur
Poste bitte mal eine Datei mit realitätsnahen Datensätzen statt der Imaginären - die sind zu abstrakt.
Man muss schon wissen, wie die Daten tatsächlich aussehen würden.
AW: Inhalt speziell transportieren
08.01.2024 11:57:37
MCO
Moin!

Erst hab ich mit PIVOT eine Lösung gesucht, aber da reicht mein Wissen nicht aus.
Mit VBA hab ich diese Lösung gefunden:




-ABCDEFGHIJKLMNO
1BrandCodeNameProductgroup
21A123Hersteller AProdukt A
31B123Hersteller BProdukt A
41C123Hersteller CProdukt A
51D123Hersteller DProdukt A1Produkt AHersteller AA123Hersteller BB123Hersteller CC123Hersteller DD123
62X123Hersteller XProdukt B
72Y123Hersteller YProdukt B
82Z123Hersteller ZProdukt B
92V123Hersteller VProdukt B2Produkt BHersteller YY123Hersteller ZZ123Hersteller VV123


Da du keine Angaben zum Zielort oder ähnlichem angegegeben hast, bin ich kreativ gewesen.
Erreicht hab diese Aufstellung mit folgendem VBA-Code
Sub Zeilen_zusammenfassen()

Dim i As Long
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String

For i = 2 To Range("A2").End(xlDown).Row
a = Cells(i, 1)
b = Cells(i, 4)
e = ""

Do
c = Cells(i, 3)
d = Cells(i, 2)
e = e & IIf(e = "", "", ",") & c & "," & d
i = i + 1
Loop While Cells(i, 1) = a

Cells(i - 1, 6) = a & "," & b & "," & e
Next i

Range("F2:F" & i).TextToColumns , xlDelimited, , , , , 1, 0
End Sub


Viel Erfolg!
Gruß, MCO
Anzeige
AW: Inhalt speziell transportieren
08.01.2024 16:57:22
daniel
Hi
"von Hand" so:

1. Sortieren nach Spalte "Brand" und Spalte "Product Group"; so das alles was in eine Zeile soll, direkt untereinander steht
2. diese Formel in E2 und nach unten ziehen: =C2&";"&B2&Wenn(Und(A2=A3;D2=D3);";"&E3;"")
3. diese Formel in F2 und nach unten ziehen: =Wenn(Und(A2=A3;D2=D3);A2&";"&D2&";"&E2;"")
4. Spalte F kopieren und auf einem neuen Blatt in Spalte A einfügen (es ist besser die Ausgangsdaten erstmal zu behalten)
im neuen Blatt dann:
5. die leeren Zellen in der Spalte A löschen (Autofilter oder Duplikate entfernen)
6. mit Spalte A das DATEN - DATENTOOLS - TEXT IN SPALTEN ausführen, mit dem Semikolon als Trennzeichen.

Gruß Daniel

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige