kann man per Macro eine Datei oeffnen, dann wider schliessen und als Name der Datei das aktuelle Datum mit der Uhrzeit waehlen? Ausserdem soll es bei der Frage ob man die Aenderungen speichern moeche automatisch mit ja beantworten.
Paul
Sub Dateien_plus_Datum()
Dim Pfad$, Datei$, Ext$, Dateiname$
Pfad = "c:\temp\"
Datei = Dir(Pfad, vbArchive) 'erste Datei
Do While Datei <> ""
Ext = Right(Datei, 4)
If Datei <> "." And Datei <> ".." Then
If LCase(Ext) = ".xls" Then 'nur excel Dateien
Dateiname = Pfad & Datei
If (GetAttr(Dateiname) And vbArchive) = vbArchive Then
Name Dateiname As Left(Dateiname, Len(Dateiname) - 4) & Format(Now, " YYYY_MM_DD hh_mm") & Ext
End If
End If
End If
Datei = Dir 'Nächste Datei
Loop
End Sub