Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel: vba Makro zum Erstellen einzelner Excel-Dateien aus jedem Sheet

25.02.2019 (👁5891)


Das folgende Makro erstellt aus jedem Excel Sheet in einer Excel-Datei eine separate Excel Datei.

Die Datei liegt als Vorlage zum Download bereit.

Das Excel Makro erstellt beim Klick auf den Button aus jedem Excel-Sheet in der Datei eine separate Datei mit .xlsx als Endung

Vba Makro

Unter der vba Makro Umgebung befindet sich die Sub-Function Excel_Sheets_exportieren()

Option Explicit

Sub Schaltfläche1_Klicken()

    Excel_Sheets_exportieren

End Sub

Public Sub Excel_Sheets_exportieren()

   '------------< Excel_Sheets_exportieren() >

    '< active Workbook >

    Dim wb As Workbook

    Set wb = ThisWorkbook

    '</ active Workbook >

    '----< Sheets ermitteln >----

    Dim ws As Worksheet

    For Each ws In wb.Sheets

        'Set ws = wb.Worksheets(sSheetname)

        'ws.Activate

       

        '< delete_sheet1 >

        Dim workbook_Export As Workbook

        Set workbook_Export = Workbooks.Add()

        ws.Copy Before:=workbook_Export.Sheets(1)

        workbook_Export.Activate

        Application.DisplayAlerts = False

        workbook_Export.Sheets(2).Delete

        Application.DisplayAlerts = True

        '</ delete_sheet1 >

       

        '< save >

        workbook_Export.SaveAs wb.Path & "\" & ws.Name

        '</ save >

        workbook_Export.Close

        Set workbook_Export = Nothing

    Next

   

    MsgBox "Fertig"

    '------------</ Excel_Sheets_exportieren() >

End Sub

Ausgabe:

Die Dateien befinden sich derzeit im Standardpfad, wo sich die Datei selbst befindet

Wichtig: dabei wird auch der Fehler 1004 umgangen.