Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateinamen automatisch erstellen

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
Anzeige
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
Anzeige
AW: Dateinamen automatisch erstellen
24.10.2005 10:05:43
u_
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

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige