Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1688to1692
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

Speichern aber wenn Jahr nicht vorhanden

Speichern aber wenn Jahr nicht vorhanden
27.04.2019 15:53:38
philipp
Hallo zusammen,
ich habe mir folgendes Makro zusammengebastelt,
läuft soweit einwandfrei.
Das Problem:
Wenn das Jahr im Verzeichnis noch nicht vorhanden ist,
sollte dies erstellt werden.
Ich habe leider keinen Plan.
Public Sub Stunden_BlattSpeichern()
Dim WBName As String
Dim TJahr As String
Dim DateiNam As String
Dim strPath$
WBName = Tabelle17.Range("D5")
TJahr = Tabelle17.Range("N2")
If WBName = "" Then Exit Sub
DateiNam = WBName & " " & TJahr & ".xlsm"
strPath = "C:\_Werkstatt\__Maschinen\Mitarbeiter\" & TJahr
MsgBox strPath
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=DateiNam, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
Exit Sub
mfg philipp

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern aber wenn Jahr nicht vorhanden
27.04.2019 16:04:34
Hajo_Zi
Hallo Philipp,
es fehl nur der letzte Ordner.
Sub Ordner()
If Dir("W:\Eigene Dateien\Hajo\test") = "" Then
MkDir "W:\Eigene Dateien\Hajo\test"
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Hatte doch noch einen Fehler
27.04.2019 16:17:21
philipp
Hallo Hajo,
hatte doch noch einen Fehler, hier nochmal die Zeilen:
WBName = Tabelle17.Range("D5")
TJahr = Tabelle17.Range("N2") '& "\"
If WBName = "" Then Exit Sub
DateiNam = WBName & " " & TJahr & ".xlsm"
strPath = "C:\_Werkstatt\__Maschinen\Mitarbeiter\" & TJahr & "\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strPath & DateiNam, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
Application.DisplayAlerts = False
weiß leider nicht, wie ich deine Lösung einbauen soll.
Es geht nur um das Jahr im Verzeichnis:
"C:\_Werkstatt\__Maschinen\Mitarbeiter\" & TJahr & "\"
mfg philipp
Anzeige
AW: Hatte doch noch einen Fehler
27.04.2019 16:19:51
Hajo_Zi
mache es vor
Application.DisplayAlerts = False
Gruß Hajo
Super Danke ! klappt ! -)
27.04.2019 16:29:25
philipp
AW: Speichern aber wenn Jahr nicht vorhanden
27.04.2019 16:13:10
MatthiasG
Hallo Philipp,
weitere Möglichkeit:

Option Explicit
'Dabei wird das Verzeichnis, sofern nicht vorhanden, angelegt!
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub Pfad_anlegen()
MakeSureDirectoryPathExists _
"C:\test\1\2\3\4\5\"
End Sub
Gruß Matthias
Hallo Matthias, Danke klappt ebenfalls !!! -)
27.04.2019 16:30:12
philipp

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige