Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Mehrere Werte in 2 Spalten auftrennen
#1
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
[Bild: ex1.jpg]


Ergebnis:

[Bild: ergebnis-ex.jpg]


Ich hoffe ihr versteht die Problematik. Ich wäre über jeden Tipp sehr dankbar! 

Viele Grüße
Stefan
Zitieren
#2
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

.xlsx   Verketten Attribut-Wert.xlsx (Größe: 15,28 KB / Downloads: 1)
oder so:

.xlsx   Verketten Attribut-Wert_2.xlsx (Größe: 17,43 KB / Downloads: 0)
(Win10, MS-Office 2021)
Wenn gelöst, dann bitte Thema als "Erledigt" kennzeichnen.
Zitieren
#3
Hallo,
vergiss es. Habe dein Anliegen falsch interpretiert.
Fällt mir zur Zeit keine Lösung ein.

MfG Günter
(Win10, MS-Office 2021)
Wenn gelöst, dann bitte Thema als "Erledigt" kennzeichnen.
Zitieren
#4
Hallo,

verschiebe B1 in A2 und benutze "Text in Spalten".
Calderon
Zitieren
#5
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...
Gruß der AlteDresdner (Win11, Off2021)
Zitieren
#6
Stimmt! Es kann so einfach sein. Vielen Danke euch allen!
Zitieren


Gehe zu:


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




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions