Datei in variablen Ordner speichern
22.03.2018 13:53:13
Hendrik
vielen Dank für eure Antwort auf meine gestrige Frage. Hat mir sehr geholfen!
Nun habe ich einen Fehler in folgendem Script und ich komme nicht auf die Lösung.
Könnt ihr mir da helfen?
Vielen Dank!
Sub BlattSpeichern()
Dim Pfad As String
Dim Dateiname As String
Dateiname = ThisWorkbook.Worksheets("Tabelle1").Range("A12").Value & ".xlsx"
Pfad = "C:\Telefonnotizen\" & Date & "\" & Dateiname
Call Ordner
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
'InputBox ("Unter welchem Namen soll die Datei gespeichert werden?")
ActiveWorkbook.SaveAs Filename:=Pfad, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
C:\Telefonnotizen\" & Date & "\" & Dateiname
Date daher weil es für jeden Tag einen neuen "Date" Ordner gibt.