• Das kreative Thema des Monats Oktober wird vor allem diejenigen unter Euch besonders ansprechen, denen Do-it-yourself quasi im Blut liegt. Zeigt uns Eure Improvisationskünste oder fotografiert, was andere Leute sich so im Alltag zusammengestrickt haben. --> Zum Mitmachen bitte hier klicken

[Excel] Mastersheet splitten & Report generieren

dma_excel

Erdapfel
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:
upload_2014-10-7_14-4-30.png

Zielsituation:
upload_2014-10-7_14-6-28.png

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?