Register als Kopie Speichern unter
20.08.2004 08:27:01
köbi
Habe schon wieder ein anliegen. Möchte ein Register aus einer Arbeitsmappe mit einem Makro zwingend speichern. Dies sollte Monat für Monat geschehen.
Wie heisst der Code?
Sub speich_unter()
Sheets("Wochenplan").Select
Sheets("Wochenplan").Copy
ChDir "C:\EigeneDateien\priv"
ActiveWorkbook.SaveAs Filename:="C:\EigeneDateien\priv\APokt04.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Mega Dank für Lösungen
Grüessli us der Schwyz
Köbi