Tabellenblatt kopieren und speichern
29.01.2007 08:08:50
holger
habe ein Problem, habe folgenden "sub" zum speichern in meiner arbeitsmappe
Sub speichern()
ChDir "G:\USER\WB5\Bewohner"
Dim Dateiname
Dateiname = Application.GetSaveAsFilename(InitialFileName:="LN & PZB_" & ActiveWorkbook.Sheets("Name").Cells(12, 2).Value & "_" & _
Date & ".xls", _
fileFilter:="alle Dateien (*.*), *.*")
If Dateiname <> False Then
meineansicht
MsgBox "CareArrange wird jetzt beendet"
ThisWorkbook.SaveAs Dateiname
normalansicht
End If
Application.Quit
End Sub
jetzt muß ich aber noch die Tabelle ("DV_Zeit") als neue und eigenständige Tabelle an einem anderen Ort Kopieren, quasie so:
>> "LN & PZB_(Eintrag aus Sheets("Name").cells (12, 2)) & Date.xls auf G:\User\PDL\Bewohner speichern Die neue Datei soll aber im "normalen Excelmodus" also ohne meine z.B. vorgenommenen "Ausblendungen von Scrollbars", also quasie ohne Makros die in der orginal Datei vorliegen, gespeichert werden. Die Datei soll auch nicht geöffnet sein, sie soll nur dort hin kopiert werden und bei Bedarf eingesehen werden. Gut wäre es auch noch die neue Datei sofort mit Schreibschutz zu speichern.
Kann mir jemand dabei helfen?
Gruß und Dank
holger
Anzeige