Laufzeitfehler 13 & 5
06.11.2023 13:11:38
Su_Ripley
ich hab seit einigen Jahren nicht mehr in VBA programmiert und habe in der Uni nur ein paar Basics gehabt.
Das ganze hat mich nicht davon abgehalten mal nen "unkompliziertes" Makro zu erstellen:
Vom Prinzip gibt es 2 Makros die sich aber in der Funktion kaum unterscheiden. Letzendlich wird eine Pdf erstellt, bei der entweder alle Gruppierungen eingeklappt sind (Makro1) oder ausgeklappt sind (Makro 2), im Prinzip also eine Detailübersicht (Makro2) oder eine einfache Übersicht (Makro1). Dazu unterscheidet sich je nach Makro der Dateiname, der Vordefiniert ist wenn der Speicherort abgefragt wird.
Das ganze Ding hat eigentlich einwandfrei Funktioniert, bis ich die gesamte Datei auf die Arbeitplatz-Cloud geladen habe. Beim Ausführen gibt das Makro mir und anderen Mitarbeitern Fehlercode 13 aus. Habe paar unbedeutende Dinge ausprobiert, letzendlich nur in der Reihnfolge rumgespielt, dass hat das Problem nicht gelöst (wovon ich auch nicht ausgegangen bin), aber dabei gibt es den Fehler Laufzeitfehler 5 aus.
Mein Code schein (oh wunder) nicht ganz sauber zu sein.
Laufzeitfehler 13 bezieht sich dabei auf den Abschnitt: If FullPath > Fals Then
Laufzeitfehler 5 bezieht sich dabei auf den Abschnitt: Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FullPath, OpenAfterPublish:=True
Hier einmal der Code des Makro2 (Makro1 ist ja fast genau das gleiche, läuft auch unter einem anderen namen als Makro2):
Sub PDF_komplex()
'Ausklappen der Gruppierungen
Worksheets("Gefährdungsbeurteilung").Activate
ActiveSheet.Outline.ShowLevels RowLevels:=2
'Speicherort Wählen:
Dim FullPath As Variant
FullPath = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path & "\" & Tabelle2.Range("B14").Value & ".pdf", FileFilter:="PDF-Datein (*.pdf),*.pdf")
'Abbruch = kein Speichern
If FullPath > Fals Then
End If
'PDF erstellen:
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FullPath, OpenAfterPublish:=True
End Sub
Kann mir auch vorstellen das es irgendwie ne unverträglichkeit mit der Cloud gibt von wegen Dateipfad.
Aber leider fehlt mir was das angeht das Know-How.
Über Lösungen mit bisschen Erklärungshintergrund würde ich mich freuen.
Su_Ripley