Dateinamen automatisch erstellen

Forumthread: Dateinamen automatisch erstellen

24.10.2005 09:55:38

Waechter

Hallo,
ich habe folgendes Problem:
In einer Zelle steht Datum/Uhrzeit. Dies wird durch den Benutzer aktualisiert. Nun soll der Benutzer durch Klick auf einen Button diese Datei unter einem anderen Namen abspeichern. Dieser Name soll automatisch generiert werden aus dem Datum/Uhrzeit Feld (YYMMDDHH.xls). Ich bekomme es nicht hin, finde auch im Archiv nichts richtiges. Vorab danke für Hilfe.
Gruss
Stefan

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateinamen automatisch erstellen

24.10.2005 10:05:12

Harald
AW: Dateinamen automatisch erstellen

24.10.2005 10:05:43

u_
AW: Dateinamen automatisch erstellen

24.10.2005 10:45:48

Waechter
AW: Dateinamen automatisch erstellen

24.10.2005 10:13:18

Heiner

AW: Dateinamen automatisch erstellen

24.10.2005 10:05:12

Harald

Hallo Stefan,
du willst wohl das Datum aus einer bestimmten Zelle haben. Da ist keine Uhrzeit drin, daher würde er im Gegensatz zu untenstehender Variante die Stundenangabe HH immer auf Null setzen.
ActiveWorkbook.SaveAs Filename:= _
"C:\Eigene Dateien\Musterordner\Datei_vom_" & Format(Now, "yymmdd_hh") & ".xls"
das Ergebnis kannste dir ja per Msgbox probeweise anzeigen lassen.


Sub test()
datum = Format(Now, "yymmdd_hh")
MsgBox datum
adatum = Format(Range("a1"), "yymmdd_hh")
MsgBox adatum
End Sub

Gruß
Harald

AW: Dateinamen automatisch erstellen

24.10.2005 10:05:43

Hallo,


Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Range("A1"), "YYMMDDhhmm") & ".xls"
End Sub

Gruß
Geist ist geil!

AW: Dateinamen automatisch erstellen

24.10.2005 10:45:48

Waechter

Danke für die schnelle Hilfe. Stefan

AW: Dateinamen automatisch erstellen

24.10.2005 10:13:18

Heiner

Hallo,
Einen Commandbutton über die Symbolleiste "Steuerelement Toolbox" erstellen, dann auf den erstellten Button einen Doppelklick, der VBA-Editor öffnet sich.
Die folgenden Zeilen eingeben: (Das Datum steht in der Zelle A1)


Private Sub commandbutton1.click()
dim speicherpad as string, datnam as string
speicherpfad= "C:\daten
datnam=speicherpfad & "\" & Format(Range("A1"), "YYMMDDhhmm")  & ".xls"
ActiveWorkbook.SaveAs Filename:=datnam, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Dateinamen automatisch erstellen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread