• Apfeltalk ändert einen Teil seiner Allgemeinen Geschäftsbedingungen (AGB), das Löschen von Useraccounts betreffend.
    Näheres könnt Ihr hier nachlesen: AGB-Änderung
  • Die Bildungsoffensive hier im Forum geht weiter! Jetzt sollen Kreativität und technische Möglichkeiten einen neue Dimension erreichen. Das Thema in diesem Monat lautet - Verkehrte Welt - Hier geht es lang --> Klick

[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?