Kann man das Ganze automatisieren?
Tabelle 1:
https://www.herber.de/bbs/user/88819.gif
Tabelle 2:
https://www.herber.de/bbs/user/88820.gif
Sub aaaa()
Dim i As Long, j As Long, n As Long, arr()
ReDim arr(1 To (Cells(Rows.Count, 1).End(xlUp).Row - 1) * 12 + 1, 1 To 4)
arr(1, 1) = "Kunde"
arr(1, 2) = "Artikel"
arr(1, 3) = "Periode"
arr(1, 4) = "Wert"
n = 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 3 To 14
n = n + 1
arr(n, 1) = Cells(i, 1)
arr(n, 2) = Cells(i, 2)
arr(n, 3) = Cells(1, j)
arr(n, 4) = Cells(i, j)
Next
Next
With Sheets(1)
.Cells(1, 1).CurrentRegion.ClearContents
.Cells(1, 1).Resize(UBound(arr), 4) = arr
.Columns.AutoFit
End With
End Sub