Speichern einzelner Tabellenblätter
01.10.2004 09:16:23
christoph
Ich habe die eigentlichen Symbolleisten ausgeblendet und durch eigenen ersetzt. Über einen der dort angebrachten Buttons kann man die Funktion SPEICHERN aufrufen und über Application.GetSaveAsFilename die Tabellen "Eingegebene Daten" & "Bewertung" als seperate Datei speichern. Das funktioniert auch, nur werden erst meine Symbolleisten ausgeblendet und man sieht wieder die alten und meine Arbeitsmappe wird geschlossen, was nicht passieren soll.
Ich habe den Code von Rolf, doch der kann mir auch nicht helfen.
Wie muß der Code geändert werden damit die entsprechenden Tabellen in einer seperaten Datei einfach gespeichert werden und sonst nix passiert?
Sub SPEICHERN()
Dim Datum As Variant
Dim Projektname As String
Projektname = Worksheets("Eingabe").Range("C2")
Datum = Format(Date, "yymmdd")
' FESTLEGEN DES LAUFWERKS IN DEM GESPEICHERT WERDEN SOLL
'ChDrive "D"
' FESTLEGEN DES ORDNERS IN DEM GESPEICHERT WERDEN SOLL
'ChDir "D:\TEST"
' AUSWAHL DER TABELLENBLÄTTER DIE GESPEICHERT WERDEN SOLLEN
Sheets(Array("Eingegebene Daten", "Bewertung")).Select
Sheets(Array("Eingegebene Daten", "Bewertung")).Copy
' SPEICHERN MIT EINEM VORGEGEBENEN DATUM UND NAMEN U
NeuName = Datum & " " & Projektname
DlgAnswer = Application.GetSaveAsFilename(InitialFileName:=NeuName, _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If DlgAnswer <> "Falsch" Then
ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal
'ActiveWorkbook.Close
End If
End Sub
Danke für Hilfe
christoph