Formel für folgendes Problem gesucht

[mcmike80]

Hallo liebes Forum,

ich brauche dringend Hilfe! Mit welcher Formel bekomme ich so etwas hin?

Vorher:

[
Bild bitte so als Datei hochladen: Klick mich!
]


Nachher:

[
Bild bitte so als Datei hochladen: Klick mich!
]

Ich hoffe, hier kann mir jemand helfen!

Vielen dank!

Beste Grüße

Michael

---

So, nochmal:


Vorher:


  Vorher.xlsx (Größe: 8,66 KB / Downloads: 18)



Nachher:


  Nachher.xlsx (Größe: 8,91 KB / Downloads: 12)

[mcmike80]

Simpler ausgedrückt möchte ich folgendes machen:

Vorher:

        A           B
1   Wert1        abc
2   Wert1        def
3   Wert1        geh
4   Wert2        ijk
5   Wert3        lmn
6   Wert3        opq
7

Nachher:

        A           B           C          D           E
1   Wert1       abc        def        geh
2   Wert2       ijk
3   Wert3       lmn        opq
4
5
6
7

Vielen Dank schonmal für eure Hilfe!

[LCohen]

D1: =EINDEUTIG(A1:A6)
E1[:E3]: =MTRANS(FILTER(B$1:B$6;A$1:A$6=D1))

[mcmike80]

Hallo LCohen,

danke für deine schnelle Antwort! Wie und wo muss ich die Formel(n) einsetzen? Wenn ich die erste Formel in das Feld D1 einsetze und die zweite Formel in E1 dann erscheint der Hinweis "Diese Funktion ist ungültig".

Vielen Dank!

[snb]

Code:

Sub M_snb()
    sn = Sheet1.Cells(1).CurrentRegion
    ReDim sp(UBound(sn), UBound(sn))
   
   
    For j = 2 To UBound(sn)
      If sp(y, 0) <> sn(j, 1) Then
          y = y + 1
          t = 1
        End If
      sp(y, 0) = sn(j, 1)
      sp(y, t) = sn(j, 2)
      t = t + 1
    Next
   
    Sheet1.Cells(1, 4).Resize(UBound(sp), UBound(sp, 2)) = sp
End Sub

[LCohen]

Dann probiere das ganze mal in Excel-für-das-Web aus. Dein xl2016 kennt die Funktionen nicht. Der Einsatzort steht vor der Formel.

[Fred11]

Hallo Michael,

hier ein Formellösung, die auch für die 2016er Version funktioniert.

Formel in A2 zur Auflistung aller Unikate aus "Vorher":
=WENNFEHLER(INDEX(vorher!$A$2:$A$26;VERGLEICH(0;INDEX(ZÄHLENWENN($A$1:A1;vorher!$A$2:$A$26);0);0));"")
(nach unten ziehen)
Erklärung der Formel siehe hier:
https://www.xelplus.com/extract-unique-i...down-list/

Formel in B2:
=WENNFEHLER(INDEX(vorher!$B$2:$B$26;AGGREGAT(15;6;ZEILE(vorher!$B$2:$B$26)/(vorher!$A$2:$A$26=$A2)-1;SPALTE(A1)));"")
(nach rechts und nach unten ziehen)
Erklärung der Formel siehe hier:
https://www.xelplus.com/return-multiple-...-in-excel/

Siehe Beispieldatei