Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1844to1848
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

Verzeichnis erstellen wenn nötig

Verzeichnis erstellen wenn nötig
10.09.2021 11:42:22
sigrid
Guten Morgen,
ich habe folgendes Makro:
Dim DateiNam As String
Dim strPath
Dim Antwort
Dim aktSh
Dim Datum
Datum = Format(ActiveSheet.Range("L1").Value, ("yyyy"))
strPath = "C:\_Sigi\#_Arbeiten\Fertig\" & Datum & "\"
DateiNam = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strPath & DateiNam, FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
es soll also die Datei im aktuellen Jahr gespeichert werden, wenn das Verzeichnis noch nicht vorhanden ist,
soll es erstellt werden.
mfg
sigrid bk

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

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnis erstellen wenn nötig
10.09.2021 11:52:07
UweD
Hallo
hier mal ein Beispiel:

Pfad = ThisWorkbook.Path
Pfad = Pfad & "\" & Format(Date, "YYYY_MM_DD")
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
So nutze ich das.
LG UweD
AW: Verzeichnis erstellen wenn nötig
10.09.2021 12:00:59
UweD
Also bei dir

Dim DateiNam As String
Dim strPath
Dim Antwort
Dim aktSh
Dim Datum
Datum = Format(ActiveSheet.Range("L1").Value, ("yyyy"))
strPath = "C:\_Sigi\#_Arbeiten\Fertig\" & Datum & "\"
DateiNam = ActiveWorkbook.Name
If Dir(strPath , vbDirectory) = "" Then MkDir strPath
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strPath & DateiNam, FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
LG UweD
Anzeige
Danke Uwe läuft bestens -)
10.09.2021 12:03:58
sigrid
Danke für die Rückmeldung (owT)
10.09.2021 12:41:50
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige