Matrix aus Excel Tablle erstellen

Hallo Andreas,

Vielen Dank für die Hilfe. Leider etwas spät. Ich habe die Aufgabe mit deiner Hilfe lösen können. Ein Frage habe ich nicht bezüglich der Quelle in der Query. Is es möglich diese dynamisch anzupassen wenn wie im obigen Beispiel mehr Kunden eingetragen werden?

Grüsse,

Robert.

Mit Formeln... schwieriger, weil mehrere Kunden in einer Zelle erscheinen sollen.

VBA ja, hat aber das gleiche Problem, bzw. man muss erstmal eine Analyse machen. Ist ein wenig aufwendig.

Es gibt noch eine 3te Möglichkeit, jedoch die Überschriften sind oben (wie es üblich ist):





Das geht mit Power Query.

https://www.dropbox.com/s/xhxot2mh1fmvfyf/61dfdd0c-3af8-415d-9652-10c2abe4a74b.xlsx?dl=1

Andreas.

Hallo nochmals,

sortiere deine Tabelle1 nach Position. Sonst würde in dem Beispiel C vor A kommen, weil C der erste Eintrag ist.

Und dann probiere es so:

Sub Transponieren()

Dim c As Range

Dim LRow As Long, i As Long, myCol As Long, n As Long

Dim arrSearch As Variant, arrHeader As Variant, arrTemp As Variant

Dim myDic As Object

Dim FirstAddress As StringWith Sheets("Tabelle1")

   LRow = .Cells(Rows.Count, 1).End(xlUp).Row

   .Columns("B:B").AdvancedFilter Action:=xlFilterCopy, _

      CopyToRange:=Sheets("Tabelle2").Range("A1"), Unique:=True

   arrTemp = .Range("C2:C" & LRow)

   Set myDic = CreateObject("Scripting.Dictionary")

   For i = LBound(arrTemp) To UBound(arrTemp)

      myDic(arrTemp(i, 1)) = arrTemp(i, 1)

   Next

   arrHeader = myDic.items

End WithWith Sheets("Tabelle2")

   LRow = .Cells(Rows.Count, 1).End(xlUp).Row

   arrSearch = .Range("A2:A" & LRow)

   .Range("B1").Resize(1, myDic.Count) = arrHeader

   

For i = LBound(arrSearch) To UBound(arrSearch)

   Set c = Sheets("Tabelle1").Range("B:B").Find(arrSearch(i, 1), _

      LookIn:=xlValues)

   If Not c Is Nothing Then

      FirstAddress = c.Address

      Do

         For n = LBound(arrHeader) To UBound(arrHeader)

            If arrHeader(n) = c.Offset(, 1) Then

               myCol = n + 2

               Exit For

            End If

         Next

         .Cells(i + 1, myCol) = IIf(Len(.Cells(i + 1, myCol)) = 0, _

            c.Offset(, -1), .Cells(i + 1, myCol) & Chr(10) & c.Offset(, -1))

         Set c = Sheets("Tabelle1").Range("B:B").FindNext(c)

      Loop While Not c Is Nothing And c.Address <> FirstAddress

   End If

Next

End With

End Sub

Mit freundlichen Grüßen

Claus

Hallo Andreas und Claus,

ihr seid spitze! Vielen Dank für eure schnellen Antworten, das ist ja unglaublich! Einfach klasse!!!

Wie du bereits schreibst, Andreas, ist die Lösung vn Klaus tatsächlich dynamischer und einfacher zu handhaben. Daher beziehe ich mich in meiner Antwort auf diese Lösung.

Dein Code, Klaus, funktioniert in meiner Beispieldatei sehr gut. Jetzt habe ich jedoch versucht das Makro auf mein Originalfile anzuwenden (aus Datenschutzgründen darf ich dies nicht posten). Ich habe die Reiter entsprechend genannt. Die Spaltenbeschriftungen
unterscheiden sich. Und es sind nun 1190 Datensätze.

Beim Ausführen des Codes wird dieser Fehler in folgender Zeile angezeigt

run-time error '5':

Invalid procedure call argument

myCol = Asc(c.Offset(, 1)) - 63

Ich bin kein Experte, was Makros und Module angeht. Daher habe ich keine Ahnung, wie ich den Fehler beheben kann. Könnt ihr mir weiterhelfen?

Nochmals & weiterhin ein riesengroßes DANKESCHÖN!

Tolle Frage ;-)

Neben der sicher schnellen VBA-Lösung von Klaus habe ich mich auch an eine Formellösung gewagt.

Sicher nicht so dynamisch, aber man bekommt es auch mit Pivot und ein paar kniffeligen Funktionen hin.

Hier ist die Datei: http://1drv.ms/1yGMbKB

Ausgehend von diesen Daten erzeuge ich eine Pivot-Tabelle.



Formel in K3 und tiefer:

=WENN(ZÄHLENWENN($G$3:$G3;$G3)<=SUMMEWENN($A$3:$A$16;$G3;$C$3:$C$16);ZÄHLENWENN($G$3:$G3;$G3);"")

für L3 und M3 ähnlich.

Formel in N3 und tiefer:

=SUMMEWENN($A$3:$A3;$G3;$C$3:$C3)

für O3 und P3 ähnlich

.

Formel in H3 und tiefer

=WENNFEHLER(INDEX($B$3:$B$16;AGGREGAT(15;6;((ZEILE($A$3:$A$16)-2)/($G3&K3=$A$3:$A$16&N$3:N$16));1);1);"")

für I3 und J3 ähnlich.

Zum Schluss noch die leeren Zeilen löschen.

Natürlich noch die Formeln dynamisch gestalten, so dass auch größere Tabellen ausgewertet werden können.



Wenn ich mir die Lösung hier angucke... ja es geht mit Funktionen... aber eine VBA-Programmierung ist da sicher schneller ;-)

Beste Grüße

Andreas

AGGREGAT kann ab Excel 2010 genutzt werden. Alternativ gibt es andere Matrix- und Summenproduktfunktionen.

PS: Die Formeln in der Datei wurden noch ein wenig angepasst.