Скопируйте другой лист Excel через VBA после разделения списка в первом листе в разных файлах.

Question

Мне нужна ваша помощь, пожалуйста! :)

Я хотел бы создать разные рабочие книги на основе одного критерия в списке на листе Excel.

Но теперь я хочу скопировать все другие рабочие таблицы 1: 1 из исходного файла в новую рабочую книгу?

У кого-нибудь из вас есть идея, как я могу реализовать это здесь?

Я сейчас никуда не доберусь.

    zeile = 11
    Dim aKopf As Range
    Set aKopf = Range("A1:AV10")
    Dim Password As String

    Do
        ' Bereich kopieren
        altezeile = zeile + 1
        zeile = zeile + 1
        Merkmal = Range("J" & zeile).Value
        Do While Range("J" & zeile).Value = Merkmal
            zeile = zeile + 1
        Loop
        zeile = zeile - 1
        Range("A" & altezeile & ":AV" & zeile).Copy

        ' In neue Datei einfügen
        Workbooks.Add

        ActiveSheet.Range("A11").Select
        ActiveSheet.Paste

        ActiveSheet.Range("A1").Select
        aKopf.Copy

        ActiveSheet.PasteSpecial
        With ActiveSheet.PageSetup
        .Zoom = False
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        End With

        'Speichern und schließen
        'ActiveSheet.Name = "Mai"
        ActiveWorkbook.SaveAs "C:\Users\Test\Daten trennen\Test_" & Merkmal & ".xlsx"
        ActiveWindow.Close

    Loop While Range("J" & zeile + 1).Value <> ""

End Sub