Mehrere Werte in 2 Spalten auftrennen

[stox]

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

[redeagle56]

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)

[redeagle56]

Hallo,
vergiss es. Habe dein Anliegen falsch interpretiert.
Fällt mir zur Zeit keine Lösung ein.

MfG Günter

[Calderon]

Hallo,

verschiebe B1 in A2 und benutze "Text in Spalten".

[AlterDresdner]

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...

[stox]

Stimmt! Es kann so einfach sein. Vielen Danke euch allen!