Ist es möglich aus 3 markierten Tabellen jeweils 3 xls Dateien zumachen und diese in ein gewünschtes Verzeichnis abzulegen?
Liebe Grüsse
Thomas
Sub Blattspeichern()
'Macro zum Speichern eines Blattes, einer Arbeitsmappe, als Datei.xls
'wobei der Tabellenblattname der Dateiname.xls wird.
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "C:\ _
Users\herzin\Excel\")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is "\"
pfad = pfad & "\"
End Select
ActiveSheet.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name
ActiveWorkbook.Close savechanges:=False
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close savechanges:=False
Case Else
End Select
Application.ScreenUpdating = True
End Sub
den Phad im Makro.... "C:\Users\herzin\Excel\" musst du an deine Verhältnisse anpassen.
Gruss HermannZ
Sub Blattspeichern()
'Macro zum Speichern eines Blattes, einer Arbeitsmappe, als Datei.xls
'wobei der Tabellenblattname der Dateiname.xls wird.
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "K:\ _
Controlling\Controlling Libro\BERICHTE - CASH\REP CASH 07-08\2007 04\")
Select Case Right(pfad, 1)
Dim x As Long
Case ""
GoTo ErrorHandler
Case Is "\"
pfad = pfad & "\"
End Select
For x = 1 To Worksheets.Count
Sheets(x).Select
ActiveSheet.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name
ActiveWorkbook.Close savechanges:=True
Next x
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close savechanges:=False
Case Else
End Select
Application.ScreenUpdating = True
End Sub