In der Zelle L1 kann der User den Speicherpfad eintragen. Dieser muss am ende mit einem Backslash (\) enden. Wenn der User diesen Pfad nun ohne den Backslash eingibt soll dieser automatisch hintenan gestellt werden. Wie kann ich das lösen? Wie lange dieser Pfad ist, ist sehr variabel, da einzelne User ein NAS haben und ich nicht weiss wo diese die Datei speichern?
Mein Code zum Speichern der Datei lautet bis jetzt wie folgt:
Sub Speichern_unter_pfad()
'Datei Speichern unter
Dim pfad As String
Dim MySite As String
Dim Dateiname As String
pfad = Range("L1")
Dateiname = "Zulagenblatt" & " " & Cells(2, 9) & "_" & Cells(1, 9) & "_" & Year(Date)
MyFilename = Dateiname
Application.Dialogs(xlDialogSaveAs).Show pfad & MyFilename
Application.DisplayAlerts = True
End Sub
Der Code ist sicherlich nicht perfekt, doch mit meinem VBA wissen klappt er zumindest. Sollten jedoch Fehler oder Änderungen vorhanden/nötig sein, so würde es mich natürlich sehr freuen, wenn Ihr diese gleich behebt.
Danke schon mal für eure Hilfe
Gruess Dani