- Registriert
- 07.10.14
- Beiträge
- 1
Hallo Zusammen
Ich bin fast am verzweifeln - Ich versuche aus einer Tabelle heraus mit einem Makro gewisse Reports zu erstellen:
Dabei soll jede Zeile, als eigenes Arbeitsblatt erstellt werden... Das neue Arbeitsblatt beinhaltet dann jeweils den Header aus der Mastertabelle, sowie die Inhalte der Zeile - Aber in "transportierter Ansicht" (Headerfelder nicht mehr von A1:E1 sondern von A1:A5 und genauso für die Zeileninhalte)
Mastertabelle:

Zielsituation:

Was ich schon mal geschafft habe ist, die Arbeitsblätter mit einem Makro zu erstellen - was mir nun aber noch fehlt ist, dass die Inhalte entsprechend kopiert werden:
Könnt ihr mir bitte helfen?
Ich bin fast am verzweifeln - Ich versuche aus einer Tabelle heraus mit einem Makro gewisse Reports zu erstellen:
Dabei soll jede Zeile, als eigenes Arbeitsblatt erstellt werden... Das neue Arbeitsblatt beinhaltet dann jeweils den Header aus der Mastertabelle, sowie die Inhalte der Zeile - Aber in "transportierter Ansicht" (Headerfelder nicht mehr von A1:E1 sondern von A1:A5 und genauso für die Zeileninhalte)
Mastertabelle:

Zielsituation:

Was ich schon mal geschafft habe ist, die Arbeitsblätter mit einem Makro zu erstellen - was mir nun aber noch fehlt ist, dass die Inhalte entsprechend kopiert werden:
Code:
Sub Super()
Dim LastRow As Long
Dim i As Long
With ActiveSheet
LastRow = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For i = 2 To LastRow
Sheets.Add(after:=Sheets(Sheets.Count)).Name = .Cells(i, 2)
Next i
End With
Application.CutCopyMode = False
End Sub
Könnt ihr mir bitte helfen?