dynamische Matrix Tabelle erstellen

Hallo Community,
ich schreibe hier zum ersten Mal und hoffe ihr könnt mir mit meinem Anliegen helfen.
Ausgang meiner Anfrage ist eine systemgenerierte Excel welche die Zugänge je Artikelnummer und Kalenderwoche auflistet.
Dabei stehen in Spalte A die jeweiligen Artikelnummern; in den folgenden Spalten die Kalenderwochen und Zugänge.
Leider ist der Excelabzug in keinem schön formatierten Format:
Spalte A | Spalte B | Spalte C | Spalte D | Spalte E |... |
Art-Nr | | | | | ... |
ABC-1 | 24/2022 | 200 | 30/2022 | 400 | ... |
DEF-2 | 20/2022 | 100 | 22/2022 | 150 | ... |
...
- Nur die Spalte A hat einen Spaltennamen, die weiteren Spalten sind nicht benannt.
- In Spalte B steht die Kalenderwoche wann die Ware geliefert wird.
- In Spalte C steht wie viel Stk geliefert wird (in der KW aus Spalte B)
- In D steht wieder eine Kalenderwoche
- In E wieder die die dazugehörigen Stückzahlen
- ... Es kann beliebig viele Spalten und Zeilen geben
Gerne würde ich diese Tabelle in ein leserliches Format bringen und eine (dynamische) Matrix-Tabelle (?) darauf aufsetzen.
Ich stelle mir die Zieltabelle ungefähr so vor:
Spalte A | Spalte B | Spalte C | Spalte D | Spalte E | ...
Art-Nr | 20/2022 | 22/2022 | 24/2022 | 30/2022 | ...
ABC-1 | | | 200 | 400 | ...
DEF-2 | 100 | 150 | | | ...
...
Wie würdet ihr Vorgehen um die Zieltabelle zu erhalten?
Gibt es evtl. eine Möglichkeit dies zu dynamisieren/automatisieren (evtl. sogar in PowerQuery)?
Zum besseren Verständnis habe ich ein Beispiel angefügt; dieses findet ihr hier:
https://www.herber.de/bbs/user/154089.xlsx
Leider konnte ich per Suche nichts passendes finden; kann aber auch gut daran liegen, dass ich nicht wirklich sicher bin nach welchem Suchbegriff ich genau suchen muss.
Ich hoffe sehr, dass ihr mir mit meinem Anliegen weiterhelfen könnt und bedanke mich vorab :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub M_snb() sn = Cells(1).CurrentRegion ReDim sp((UBound(sn) - 3) * UBound(sn, 2) \ 2 + 1, 3) For j = 4 To 6 For jj = 2 To UBound(sn, 2) Step 2 sp(n, 0) = sn(j, 1) sp(n, 1) = Right(sn(j, jj), 4) sp(n, 2) = Val(sn(j, jj)) sp(n, 3) = sn(j, jj + 1) n = n + 1 Next Next Cells(20, 1).Resize(UBound(sp) + 1, 4) = sp End Sub

Hi
als VBA-Makro würde ich sowas verwenden, wer sich in Dictionarys einarbeiten will, kann sich das ja mal antun.
das Makro ist passend für die Beispieldatei, allerdings muss die Basistabelle nach A1 verschoben werden (graue Zeilen/Spalten in Zeile1/SpalteA) und die letzte Spalte und Zeile mit den ... muss gelöscht werden.
die Darstellung der Kalenderwoche wird getauscht, dh erst Jahr, dann KW, damit lässt sich das ganze auch einfacher Jahrsübergreifen sortieren.
Das Makro zeigt nur die tatsächlich genutzen KWs, im gegensatz zur zuvor von mir gezeigten Formellösung, welche einen vollständigen Kalender hat (den man dann aber selbstständig auf prüfuen muss, ob alle Werte auch übernommen werden.


Sub umwandeln()
Dim arr
Dim ze As Long, sp As Long
Dim dicErgZeile
Dim dicErgSpalte
Dim dicErgWert
Dim dicKWs
Dim ID
Set dicErgZeile = CreateObject("scripting.dictionary")
Set dicErgSpalte = CreateObject("scripting.dictionary")
Set dicErgWert = CreateObject("scripting.dictionary")
Set dicKWs = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion
For ze = 2 To UBound(arr, 1)
For sp = 2 To UBound(arr, 2) Step 2
arr(ze, sp) = Split(arr(ze, sp), "/")(1) & "/" & Split(arr(ze, sp), "/")(0)
ID = arr(ze, 1) & "|" & arr(ze, sp)
If Not dicKWs.exists(arr(ze, sp)) Then
dicKWs(arr(ze, sp)) = dicKWs.Count + 1
End If
dicErgZeile(ID) = ze
dicErgSpalte(ID) = dicKWs(arr(ze, sp))
dicErgWert(ID) = arr(ze, sp + 1)
Next
Next
ReDim Preserve arr(1 To UBound(arr, 1), 1 To 1)
ReDim Preserve arr(1 To UBound(arr, 1), 1 To dicKWs.Count + 1)
For Each ID In dicErgWert.keys
arr(dicErgZeile(ID), dicErgSpalte(ID) + 1) = dicErgWert(ID)
Next
For Each ID In dicKWs.keys
arr(1, dicKWs(ID) + 1) = ID
Next
With Range("A1").Offset(UBound(arr, 1) + 2).Resize(UBound(arr, 1), UBound(arr, 2))
.Value = arr
.Offset(0, 1).Sort Key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo, Orientation:=2
.Sort Key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes, Orientation:=1
End With
End Sub

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

dynamische Matrix Tabelle erstellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamische Matrix Tabelle erstellen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread