Datei speichern unter Namen
13.02.2004 12:16:10
René R
ich speicher mit diesem Makro eine Datei.
Sub DateiSpeichern()
Dim str As String
Const LW = "D:\"
Const Pfad = "D:\eigene dateien"
str = ActiveWorkbook.Name
ChDrive LW
ChDir Pfad
ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormal, password:="", writerespassword:=""
End Sub
Soweit auch gut, jetzt möchte ich aber diese z.b über ein Dialogfenster speichern in dem schon eingetragen ist z.B. "Nebenkosten 2003.xls" speichern.
Kurze Erklärung, am Jahresende möchte ich die gleiche Datei für das nächste Jahr haben und die alte sollte das vergangende Jahr enthalten, die Neue Datei logischerweise das Neue Jahr. Ist es möglich gleich alle entsprechenden Zellen in unterschiedlichen Bereichen und auch Tabellenblättern zu löschen.
Diese Aufgabe ist für meine geringen VBA Kenntnisse zu umfangreich.
Vielen Dank
Anzeige