Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
308to312
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TIME

TIME
15.09.2003 18:47:06
DanielK - nicht DER danielK
Ich möchte, dass beim Speichern einer Datei automatisch die Uhrzeit an den Dateinamen angefügt wird mit "Dateiname" & Time & ".xls"

Allerdings geht das ja nicht, weil die Uhrzeit als xx:xx:xx dargestellt wird und Doppelpunkte ja nicht zugelassen sind.
Wie kann ich Time denn umformatieren, dass es z.B. so dargestellt wird: xx_xx und die Sekunden ganz weggelassen werden?

Daniel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TIME
15.09.2003 18:49:42
Hajo_Zi
Hallo Daniel

nach folgendem Prizip


Sub Komplett()
Dim Datei As String
Dim Phad As String
Datei = ThisWorkbook.Name
Phad = ThisWorkbook.Path
ActiveWorkbook.SaveCopyAs FileName:=Phad & "\" & Format(Now, "YY-MM-DD hh_mm") & "Backup.XLS"
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Anzeige
AW: TIME
15.09.2003 19:17:21
Martin
Hallo Daniel,

versuch mal

Dim Zeit As String
Zeit = Left(Time(), 2) & Mid(Time(), 4, 2)
' & Right(Time(), 2) würde auch noch die Sekunden liefern

Falls Du aber nur innerhalb des Sheets das Datum oder die Zeit der letzten Speicherung feststellen willst, mach es lieber so:


Sub Test()
With Application.FileSearch
.LookIn = ActiveWorkbook.Path
.FileName = ActiveWorkbook.Name
.Execute
'    Datum = DateValue(FileDateTime(.FoundFiles(1)))  ' nur zur Info
Zeit = TimeValue(FileDateTime(.FoundFiles(1)))
End With
End Sub


mfg
Martin
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige