ich habe eine excel-tabelle mit ca. 90 datenblätter. ich möchte mit einem makro alle datenblätter als einzelne dateien abspeichern. dabei soll der datenblatt-name gleichzeitig der datei-name werden.
hat da jemand eine idee?
danke
Sub Blattspeichern2()
For a = 1 To Charts.Count
Charts(a).Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\Daten\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
Next
End Sub
Sub Blattspeichern2()
For a = 1 To Sheets.Count
Sheets(a).Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\Daten\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
Next
End Sub
Sub BlaetterInMappen()
Dim WS As Worksheet
On Error GoTo Ende
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'keine Warnung vor Überschreiben
For Each WS In ThisWorkbook.Worksheets
WS.Copy
ActiveWorkbook.Close SaveChanges:=True, FileName:=WS.Name & ".xls"
Next WS
Ende:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub