Mehrere Werte in 2 Spalten auftrennen - Druckversion +- Office-Fragen.de (https://office-fragen.de) +-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html) +--- Forum: Excel (https://office-fragen.de/forum-2.html) +--- Thema: Mehrere Werte in 2 Spalten auftrennen (/thread-27253.html)

Mehrere Werte in 2 Spalten auftrennen - stox - 15.03.2022 Hallo zusammen, ich sitze vor einem Problem und hoffe, dass evtl. jemand weiterhelfen kann?!? Ich habe ein Excel Dokument, das in einer Zelle alle Attribute stehen hat und in er anderen Zelle alle dazugehörigen Werte. Ich möchten nun die beiden Werte in Spalten kombinieren. Entweder Attribut und Wert nebeneinander oder untereinander. In Spalte A1 stehen diese Werte: Attribut A | Attribut B | Attribut C | Attribut D Spalte B2 Wert A | Wert B | Wert C | Wert D  Das Ergebnis sollte so sein Spalte A1 = Attribut A | Spalte B1 = Attribut B usw. Spalte A2 = Wert A     | Spalte B2 = Wert B usw. Ausgangssituation Ergebnis: Ich hoffe ihr versteht die Problematik. Ich wäre über jeden Tipp sehr dankbar!  Viele Grüße Stefan RE: Mehrere Werte in 2 Spalten auftrennen - redeagle56 - 15.03.2022 Hallo, kann sein, das ich das mit der Kombination falsch verstanden habe. Du willst Attribut und Wert hintereinander in einer Zelle haben? Sieh dir mal die Tabelle an. MfG Günter   Verketten Attribut-Wert.xlsx (Größe: 15,28 KB / Downloads: 1) oder so:   Verketten Attribut-Wert_2.xlsx (Größe: 17,43 KB / Downloads: 0) RE: Mehrere Werte in 2 Spalten auftrennen - redeagle56 - 15.03.2022 Hallo, vergiss es. Habe dein Anliegen falsch interpretiert. Fällt mir zur Zeit keine Lösung ein. MfG Günter RE: Mehrere Werte in 2 Spalten auftrennen - Calderon - 15.03.2022 Hallo, verschiebe B1 in A2 und benutze "Text in Spalten". RE: Mehrere Werte in 2 Spalten auftrennen - AlterDresdner - 15.03.2022 Hallo, ein QuickAndDirty-Makro Sub Trennen() Const Trenner = "|" Dim W1 As String, W2 As String, i, spalte As Long Dim A As String   W1 = Range("A1")   W2 = Range("B1")   spalte = 1   Do     i = InStr(1, W1, Trenner)     If i > 0 Then       A = Trim(Left(W1, i - 1))       W1 = Mid(W1, i + 1)     Else       A = Trim(W1)       W1 = ""     End If     Cells(1, spalte) = A     i = InStr(1, W2, Trenner)     If i > 0 Then       A = Trim(Left(W2, i - 1))       W2 = Mid(W2, i + 1)     Else       A = Trim(W2)       W2 = ""     End If     Cells(2, spalte) = A     spalte = spalte + 1   Loop Until Len(Trim(W1)) = 0 End Sub Hätte ich mir gespart, wenn ich Calderons Post gelesen hätte... RE: Mehrere Werte in 2 Spalten auftrennen - stox - 16.03.2022 Stimmt! Es kann so einfach sein. Vielen Danke euch allen!