ich möchte per VBA in einem bestimmten Ort (Pfad) speichern. Dateiname soll anhand bestimmte Zellen übernommen werden (Z.B. Rechnungsnr + Kundenname + Gutschrift oder Rechnung). Leider funktioniert meine VBA nicht. Es kommt immer beim ausführen, nicht die gewünschte Dateiname und Ort. Ich hoffe, ihr könnt mir helfen.
Dim sPath As String
Dim Speicherpfad As String
Dim SpeicherpfadDatei As String
Dim Kundenname As String
'NEU
Dim Rechnungen As Worksheet
Set Rechnungen = Sheets("Rechnung")
'NEU
Kundenname = Sheets("Rechnung").Range("k4").Value
'F4=Kundennr und Kundenname
SpeicherpfadDatei = Range("f4").Value
'I15 Rechnung oder Gutschrift
Speicherpfad = Range("i15").Value
'J18:Rechnungsdatum
dat = Range("J18").Value
sPath = "D:\Transport\Yilmaz Housein\Faktura\" & Speicherpfad & "\"
On Error Resume Next
'xx
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
Worksheets("Rechnung").Copy
ActiveWorkbook.SaveAs sPath & _
Range("j20").Value & " " & Range("K15") & " " & Range("f4") & _
" " & Format(dat, " dd-mm-yyyy") & ".xlsm", FileFormat:=52
ActiveWorkbook.Close