Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1888to1892
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
Inhaltsverzeichnis

VBA Saveas mit Angabe der Tageszeit

VBA Saveas mit Angabe der Tageszeit
30.06.2022 15:13:02
Dennis
Hallo,
ich brauche einmal euren Rat.
Ich habe ein bestehendes Makro, welches per:
ActiveWorkbook.SaveAs Filename:= _
"C:\Dateiname" & Format(Now, "_dd_mm_yyyy_hh"), _
FileFormat:=xlOpenXMLWorkbook, AccessMode:=xlShared, CreateBackup:=False
eine Datei mit Datum und Stundenangabe abspeichert.
Das klappt auch wunderbar.
Wie kann ich es hinbekommen, dass ich die Stundenangabe mit der Angabe von Tageszeit (morgens, mittags, nachmittags) ersetze?
Also wenn die Datei bspw. zwischen 7-9 Uhr gespeichert wird, soll sie "Dateiname_dd_mm_yyyy_morgens" benannt werden.
Das gleiche von 9-11 mit vormittags etc.
Das ist doch für euch bestimmt eine Kleinigkeit ;-)
Danke schonmal!
Gruß

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Saveas mit Angabe der Tageszeit
30.06.2022 15:25:51
UweD
Hallo
so?

    Dim Tagesabschnitt As String, Dateiname As String
Select Case Hour(Now)
Case 7 To 8 'bis 8:59:59
Tagesabschnitt = "_morgens"
Case 9 To 10
Tagesabschnitt = "_vormittags"
Case 11 To 13
Tagesabschnitt = "_mittags"
Case 14 To 18
Tagesabschnitt = "_nachmittags"
Case Else
Tagesabschnitt = "_nachts"
End Select
Dateiname = "C:\Dateiname" & Format(Now, "_dd_mm_yyyy") & Tagesabschnitt
ActiveWorkbook.SaveAs Filename:=Dateiname, _
FileFormat:=xlOpenXMLWorkbook, AccessMode:=xlShared, CreateBackup:=False
LG UweD
AW: VBA Saveas mit Angabe der Tageszeit
30.06.2022 16:15:04
Dennis
Danke!
Funktioniert :-)
Anzeige
Danke für die Rückmeldung (owT)
30.06.2022 16:31:01
UweD
c

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige