ich habe ein Problem und hoffe darauf, dass jemand von euch eine Elegante Lösung dafür hat.
Anbei die Excel Tabelle.
Ich soll die Buchungen, die im Tabellenblatt Buchungen zu finden sind (gekürzte Version), in das Blatt "Übersicht" Transponieren. Das Problem ist, dass sind ganz viele und ich denke mir das es da auch eine Formel oder VBA Lösungen geben müsste.
Die Teilenummern im Blatt "Übersicht" sind vorgegeben und ab der Spalte F sollen dann die einzelnen Buchungen mit den Mengen transponiert werden.
ich weiß nicht, wo die Datumangaben, die Zahl 101 und die Bezeichnung herkommen.
Auch nicht die Daten ab Zeile 102.
Das passt nicht zur Übersicht...
Ich kann das anbieten:
Code:
Sub Makro1()
Dim TB1 As Worksheet, TB2 As Worksheet, i As Long, LR As Long, LC As Integer, Z As Long
Dim Z1 As Integer, S1 As Integer, Neu1 As Integer, Arr As Variant
Set TB1 = Sheets("Übersicht")
Set TB2 = Sheets("Buchungen")
Z1 = 2 ' Daten ab Zeile 2
S1 = 6 'Daten ab Spalte 6=F
Neu1 = 4 'Zielzeile
'reset
TB2.UsedRange.Clear
LR = TB1.Cells(TB1.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR
LC = TB1.Cells(i, TB1.Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile
With TB2.Cells(Neu1, 1)
'Material kopieren
.Value = TB1.Cells(i, 1)
If LC >= S1 Then 'Prüfen, ob Daten vorhanden sind
'Buchungen kopieren
Arr = WorksheetFunction.Transpose(TB1.Cells(i, S1).Resize(1, LC - S1 + 1).Value)
.Offset(1, 3).Resize(LC - S1 + 1, 1).Value = Arr
04.03.2020, 15:16 (Dieser Beitrag wurde zuletzt bearbeitet: 04.03.2020, 15:16 von Jockel.)
Hallo. Es könnte so schön einfach sein (mit Power Query). Aber bei dieser Tabelle (die keine ist) mache ich mir nicht die Mühe, daraus eine vernünftige (auswertbare) Tabelle zu machen ...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford