Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aufteilen der Arbeitsblätter in neue Arbeitsmappen

Gruppe

Interaktion

Problem

Die letzten 2 Blätter einer bestehende Arbeitsmappe soll in 2 Einzeldateien aufgeteilt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Verteilen()
   Dim iCounter As Integer
   Dim sPath As String
   Application.ScreenUpdating = False
   sPath = Application.DefaultFilePath
   For iCounter = 3 To Worksheets.Count
      Worksheets(3).Copy
      ActiveWorkbook.SaveAs _
         sPath & "\Test" & iCounter - 2 & ".xls"
      ActiveWorkbook.Close savechanges:=False
      Application.DisplayAlerts = False
      Worksheets(3).Delete
      Application.DisplayAlerts = True
   Next iCounter
   MsgBox "Die Arbeitsmappen wurden im Verzeichnis " _
      & vbLf & sPath & " gespeichert!"
   Application.ScreenUpdating = True
End Sub