Registerblätter einzeln speichern

Computer: Software & Programmierung Office Software
1

Hallo,

ich suche ein Makro, mit dem ich aus einer Tabelle alle Registerblätter als jeweils einzelne Tabelle mit je einem Registerblatt im gleichen Ordner wie die originale Tabelle speichern kann.

Ich habe Tabellen mit 10 bis 15 verschiedenen Registerblättern (sheets), die alle einen anderen Namen haben. Mit diesem Namen soll eine neue Tabelle gespeichert werden, die genau dieses Blatt enthält.
Das Makro soll dies für alle Blätter mit einem Aufruf erledigen.

Ich hoffe auf Eure Hilfe

Vielen Dank Harald

2

ich suche ein Makro, mit dem ich aus einer Tabelle alle
Registerblätter als jeweils einzelne Tabelle mit je einem
Registerblatt im gleichen Ordner wie die originale Tabelle
speichern kann.

Ich habe Tabellen mit 10 bis 15 verschiedenen Registerblättern
(sheets), die alle einen anderen Namen haben. Mit diesem Namen
soll eine neue Tabelle gespeichert werden, die genau dieses
Blatt enthält.

Hallo Harald,

probiere es mal so:

Sub Speichern()
Dim wks As Worksheet, Pfad As String
Pfad = ThisWorkbook.Path & "\"
For Each wks In ThisWorkbook.Worksheets
 wks.Copy
 ActiveWorkbook.SaveAs Pfad & wks.Name & ".xls"
 ActiveWorkbook.Close
Next wks
End Sub

Gruß
Reinhard

3

Guten Morgen,

vielen Dank für diese Hilfe, es klappt wunderbar!

Dankeschön

Harald