Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateiname= Datum und Uhrzeit

Dateiname= Datum und Uhrzeit
05.10.2005 13:49:09
Andre
Hallo alle zusammen,
beim schließen der Datei soll automatisch die Datei unter aktuellem Datum und Uhrzeit abgespeichert werden. Da es Probleme mit Sonderzeichen (:) besteht könnte ich mir vorstellen, dass der Dateiname z.B. 05.10.05 13_45_46 (für 05.10.2005 13:45:46)lautet.
Ist das mit Makro möglich.
Ich hoffe mir kann jemand helfen
MFG
Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname= Datum und Uhrzeit
05.10.2005 13:58:33
SparVAr
hier haste :)
in temp ist dann deine datum/uhrzeit combo drinnen :
Temp = Str(Time)
Temp = Mid(Temp, 1, 2) + "-" + Mid(Temp, 4, 2)
Temp = "_" + Str(Date) + "_" + Temp
AW: Dateiname= Datum und Uhrzeit
05.10.2005 14:19:58
Harald
Hi Andre,
oder auch so

Sub datumsanzeige()
datum = Format(Now, "YYYY_MM_DD_hh:mm")
ActiveWorkbook.SaveAs Filename:= _
"C:\Eigene Dateien \Datei_vom_" & datum & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Gruß
Harald
AW: Dateiname= Datum und Uhrzeit
05.10.2005 15:27:13
Andre
Hallo ihr Zwei,
danke für eure Mühe
habe mir aus euren Anregungen folgendes gebastelt:

Sub speichern()
[iv65536] = Str(Date) + " " + Mid(Time, 1, 2) + "_" + Mid(Time, 4, 2)
ActiveWorkbook.SaveAs Filename:= _
"C:\Eigene Dateien\Test1 " & Range("iv65536") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Anzeige
AW: Dateiname= Datum und Uhrzeit
05.10.2005 15:36:56
Andre
Habe gleich [iv65536]eingebunden wie folgt:

Sub speichern()
ActiveWorkbook.SaveAs Filename:= _
"C:\Eigene Dateien\Test1 " & Str(Date) + " " + Mid(Time, 1, 2) + "_" + Mid(Time, 4, 2) & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub


358 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige