Warum funktioniert das nicht?
02.01.2017 16:31:37
B S
Hallo zusammen,
folgendes:
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\..\"
ActiveWorkbook.SaveAs Filename:=strPfad & "\Bestellvorschriften\" & "Bestellvorschriften_" & ThisWorkbook.Name, _
FileFormat:=xlNormal
führt zu diesem Fehler:
Laufzeitfehler '1004
Warum? :)
An einer anderen Stelle im Makro funktioniert es und zwar hier...
If Not IsEmpty(.UsedRange) Then
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPfad & "\Bestellvorschriften\" & "\Bestellvorschrift_" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_" & .Name & ".pdf", _
Quality:=xlQualityStandard
Danke!