Datei speichern unter mit Makro
09.07.2007 14:23:20
Salim
Hallo zusammen,
ich versuche eine Zwischenspeicherung über Makro zu erzeugen. Ganz weit bin ich nicht gekommen....
Sub Speichern()
ActiveWorkbook.Saveas Filename:= (hier brauche ich den Pfad der Datei, die es zu speichern gilt: _
_
d.h Ablage im selben Ordner) & als Titel: J4 & "." & R8 & "." & R6 & "." & "Backup" & "." & _
Date (Format JJJJMMTT)(filefilter:="Excel-Dateien(*.xls),*.xls").
Die Zellen J4, R6 und R8 stehen im Tabellenblatt "Abrechnungsblatt".
ActiveWorkbook.Close
Hier bräuchte ich noch ein Befehl der die ursprüngliche Datei (also nicht das Backup) wiederö _
ffnet.
End Sub
Wäre dankbar für ein Feedback. Komme selber wirklich nich weiter....
Danke
Gruss
Salim