Alternativer Speicherpfad
15.10.2015 12:53:43
Andreas
meine Excel Tabelle wird bei uns von zwei Standorten genutzt, die entsprechend zwei verschiedene Speicherpfade nutzen.
Aktuell erstelle ich zwei verschiedene Versionen, aber ich denke mir, es muss doch auch möglich sein, dass Excel prüft, ob der Speicherpfad vorhanden ist und wenn nicht, einen anderen Pfad nutzt. Somit bräuchte ich nur noch eine Version.
Kann mir bitte jemand eine Lösung vorschlagen, sofern dies möglich ist.
Wenn Pfad "L:\Marketing\New\" nicht vorhanden, dann speicher unter R:\Marketing\New\
Hier mein Text:
Dim strPfad As String
Dim DatNam As String
DatNam = Sheets("Marketing").Range("A2").Text & Sheets("Box").Range("D2").Text & ".xlsx"
strPfad = "L:\Marketing\New\"
ActiveWorkbook.SaveAs Filename:=strPfad & DatNam, _
FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Vielen Dank für die Hilfe