Hallo Leute,
habe ein kleines schönheits Problem mit mein Code.
Beim Speichern möchte ich das wie folgt gespeichert wird:
d:\touren\faktura\Rechnung\Jahr\monat
Laut mein Code funktioniert das leider so: c:\touren\faktura\Rachnung Jahr\Monat
Das ist zwar eine kleinigkeit aber ich komme leider nicht dahinter. Ich hoffe Ihr könnt mir helfen.

Dim dat As Date
Dim sPath As String
Dim Speicherpfad As String
Dim Kundenname As String

Kundenname = Range("E18").Value
Speicherpfad = Range("j15").Value

dat = Range("J18").Value
sPath = "D:\Touren\Faktura\" & Speicherpfad & " "
On Error Resume Next

MkDir sPath & Year(dat)
sPath = sPath & Year(dat) & "\"

MkDir sPath & Kundenname
sPath = sPath & Kundenname & "\"

MkDir sPath & Format(dat, "mm yyyy")
sPath = sPath & Format(dat, "mm yyyy") & "\"
ActiveSheet.Copy


ActiveWorkbook.SaveAs sPath & _
Range("j19").Value & " " & Range("J15") & " " & Range("E18") & _
" " & Format(dat, " dd-mm-yyyy") & ".xls"


ActiveWorkbook.Close