Excel-Inside Newsletter


Empfange HTML?

Wir haben 32 Gäste online

 

- Preiswert und schnell -
Stellen Sie Ihre Anfrage,
wir unterbreiten Ihnen gerne
ein kostenloses Angebot.
Weiterlesen ...

Pay a Coffee

Möchten Sie uns uns einen Betrag zur Deckung der Kosten spenden oder weil Sie von der Seite begeistert sind, dann klicken Sie bitte auf die Schaltfläche.

Follow Excel Inside
   


   RSS-Feed abbonieren 

Anmeldung

Angemeldeten Besuchern steht weitere Funktionen wie der Zugriff auf den Online- Shop und das Office 2010- Forum zur Verfügung.



Übersetzen der Seite nach:


Länder

71.6%Germany Germany
14.3%United States United States
4.9%Austria Austria
4.7%Switzerland Switzerland
1%United Kingdom United Kingdom

Besucher

Total: 1781975


Arbeitsblätter in jeweils einer eigenen Arbeitsmappe speichern

102006



Die folgende Prozedur speichert alle Arbeitsblätter einer Mappe in

jeweils extra Arbeitsmappen ab.

Die neu erzeugten Arbeitsmappen werden im Root-Verzeichnis abgelegt.



Dieses Makro ist aufzurufen.

Sub Test()

Call SheetsSpeichern(ActiveWorkbook)

End Sub

_______________________________________________________________

Public Sub SheetsSpeichern(Wkb As Workbook)

Dim bScreenUpdating As Boolean

Dim bEnableEvents As Boolean

Dim tPath As String

Dim tFileName As String

Dim tSheetName As String

Dim oSheet As Object

With Application

bScreenUpdating = .ScreenUpdating

bEnableEvents = .EnableEvents

.ScreenUpdating = False

.EnableEvents = False

tPath = Wkb.Path & Application.PathSeparator

tFileName = WorksheetFunction.Substitute(Wkb.Name, ".xls", vbNullString)

For Each oSheet In Wkb.Sheets

oSheet.Copy

With ActiveWorkbook

tSheetName = oSheet.Name

.SaveAs tPath & tFileName & "_" & tSheetName & ".xls"

.Close SaveChanges:=False

End With

Next oSheet

.ScreenUpdating = bScreenUpdating

.EnableEvents = bEnableEvents

End With

End Sub