AW: aus markierten Tabellen xls. Dateien generieren
09.05.2007 17:15:00
HermannZ
Hallo Thomas;
ich verstehe das so das du aus drei einzelnen Tabellenblättern xls.Dateien machen willst. Wenn ja geht das mit folgendem Makro;
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