einzelnes Tabellenblatt als kopie speichern
28.01.2007 22:08:32
holger
habe ein Problem, habe folgenden "sub" zu speichern
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 vorgenommenen "ausblensungen" gespeichert werden.
Kann mir jemand dabei helfen??
Gruß und Dank
holger
Anzeige