• Apfeltalk ändert einen Teil seiner Allgemeinen Geschäftsbedingungen (AGB), das Löschen von Useraccounts betreffend.
    Näheres könnt Ihr hier nachlesen: AGB-Änderung
  • Was gibt es Schöneres als den Mai draußen in der Natur mit allen Sinnen zu genießen? Lasst uns teilhaben an Euren Erlebnissen und macht mit beim Thema des Monats Da blüht uns was! ---> 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?