Tabellenblatt speichern
11.09.2002 14:49:29
Holger Meinert
das unten aufgeführte Makro erstellt eine Kopie einer Arbeitsmappe in ein Verzeichnis meiner Wahl.
Gibt es die Möglichkeit nur ein einzelnes Tabellenblatt aus der Arbeitmappe als neue Datei zu speichern.
Wie muß das Makro verändert werden ?
Danke für die Hilfe !
Sub DateiKopieren()
Dim Datei
Dim sicherung
Dim pfad_copy
Dim Today_DAT, z
Dim strVerzeichnis
z = "_"
Today_DAT = Range("B1") & z
Datei = "Tagesauswertung"
sicherung = Today_DAT & Datei & ".xls"
pfad_copy = "C:\kill\Neu\"
strVerzeichnis = pfad_copy & sicherung
ActiveWorkbook.SaveCopyAs strVerzeichnis
End Sub
Anzeige