Thema Datum  Von Nutzer Rating
Antwort
Rot PDF-Export aus Excel Laufzeitfehler 5
 04.05.2020 17:22:53 Gast1208
NotSolved
04.05.2020 17:38:29 Flotter Feger
NotSolved
04.05.2020 20:09:53 Gast36746
NotSolved
05.05.2020 20:22:12 xlKing
NotSolved
11.05.2020 13:26:25 Gast19053
NotSolved
11.05.2020 14:21:04 Gast27884
NotSolved

Ansicht des Beitrags:
Von:
Gast1208		 Datum:
04.05.2020 17:22:53		 Views:
1206		 Rating:
     
Antwort:
  Ja
Thema:
PDF-Export aus Excel Laufzeitfehler 5

Hallo VBA-Gemeinde, 

 

ich bin seit einigen Wochen als Werkstudent neu in 'ner Firma und soll mich nun an der Behebung des folgenden Fehlers versuchen: 
 

Es gibt für die Produktionsanlagen im Unternehmen Schmier- und Wartungspläne. Diese wurden von meinem Vorgänger erstellt und funktionieren seit einiger Zeit nicht mehr. Beim Versuch der Speicherung des ausgefüllten Excel-Formulars als PDF taucht die Fehlermeldung "Laufzeitfehler 5" auf. 

Quellcode, der bis vor kurzer Zeit stets erfolgreich verwendet wurde: 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub CommandButton1_Click()
Dim AnzahlWB As Integer
 
Worksheets("Schmierprotokoll").Activate
 
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
 
' PDF Export
 
 
Laut Debugger sind folgende Zeilen die Ursache für den Fehler:
?
1
2
3
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\xxx\xxx-Technik\03_Wartungspläne und Dokumente\Halle 2\Wartungspläne ausgefüllt\" & TextBox2.Value & "_Schmierprotokoll_" & TextBox1.Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
' Einblenden der Menüleiste
 
Worksheets("Schmierprotokoll").Unprotect Password:="xxx"
 
SendKeys "^{F1}"
Application.DisplayFullScreen = False
 
Worksheets("Schmierprotokoll").Protect Password:="xxx"
     
' Apllikation schließen
 
AnzahlWB = Workbooks.Count
 
If AnzahlWB <> 1 Then
Workbooks("Schmierprotokoll.xlsm").Close Savechanges:=False
Else
Application.Quit
Application.DisplayAlerts = False
End If
 
 
' Hinweise bei unvollständigen Daten
 
If TextBox1.Value = "" And TextBox2.Value = "" Then
MsgBox ("Bitte Name und Datum eintragen!")
ElseIf TextBox1.Value = "" And TextBox2.Value <> "" Then
MsgBox ("Bitte Name eintragen!")
ElseIf TextBox1.Value <> "" And TextBox2.Value = "" Then
MsgBox ("Bitte Datum eintragen!")
End If
 
Application.DisplayAlerts = False
 
End If
 
End Sub
 
Private Sub CommandButton2_Click()
Worksheets("Schmierprotokoll").TextBox2.Value = Date
End Sub

 

Ich hoffe ihr könnt mir irgendwie helfen, bin nicht sehr versiert, was VBA angeht, Grundkenntnisse und ein paar Erfahrungen mit C++ habe ich allerdings. 

PS: Einige Firmenbezogene Bezeichnungen habe ich mit "xxx" unkenntlich gemacht, falls ihr euch wundern solltet. 

 

Im Voraus dankend und mit freundlichen Grüßen 

 

Philipp

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot PDF-Export aus Excel Laufzeitfehler 5
 04.05.2020 17:22:53 Gast1208
NotSolved
04.05.2020 17:38:29 Flotter Feger
NotSolved
04.05.2020 20:09:53 Gast36746
NotSolved
05.05.2020 20:22:12 xlKing
NotSolved
11.05.2020 13:26:25 Gast19053
NotSolved
11.05.2020 14:21:04 Gast27884
NotSolved