Moin zusammen!
Ich habe folgende automatische Abspeicherung in PDF-Format in einem Makro:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & Tabelle2.Range("F2").Value & " " & Tabelle3.Range("L30").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
wobei vorher Pfad wie folgt definiert wird:
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Verzeichnis wählen"
.AllowMultiSelect = False
If .Show -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else:
Pfad = .SelectedItems(1) & "\"
End If
End With
PFad ist als Variant definiert.
Es kommt ein Laufzeitfehler "13". Typen unverträglich.
Finde nicht heraus, woran es liegt. Wisst ihr vielleicht was?
VG, Tobias