AW: Tabelle transponieren, aber wie?
04.09.2019 11:42:47
UweD
Hallo
per VBA?
Sub Trans()
Dim TB1, TB2, LR As Long, LC As Integer, Zeile As Long, i As Integer
Set TB1 = Sheets("Ausgang")
Set TB2 = Sheets("Ziel")
Zeile = 2
With TB1
LC = .Cells(1, .Columns.Count).End(xlToLeft).Column 'letzte Spalte von Zeile1
LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
End With
With TB2
'Reset
.Cells.ClearContents
.Cells(1, 1) = "Datum"
.Cells(1, 2) = "Filiale"
.Cells(1, 3) = "Betrag"
For i = 2 To LC
'Datum
.Cells(Zeile, 1).Resize(LR - 1, 1).Value = TB1.Cells(2, 1).Resize(LR - 1, 1).Value
'Filiale
.Cells(Zeile, 2).Resize(LR - 1, 1).Value = TB1.Cells(1, i)
'Betrag
.Cells(Zeile, 3).Resize(LR - 1, 1).Value = TB1.Cells(2, i).Resize(LR - 1, 1).Value
Zeile = Zeile + LR - 1
Next
End With
End Sub
LG UweD