Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlermeldung: "Run-time error '1004'
 12.05.2014 15:01:06 Tom
NotSolved
12.05.2014 15:22:48 Gast26324
Solved
12.05.2014 15:30:11 Gast6780
NotSolved
12.05.2014 15:44:55 Gast70751
Solved
12.05.2014 15:45:06 Gast42413
NotSolved
12.05.2014 18:43:45 Gast52724
NotSolved

Ansicht des Beitrags:
Von:
Tom		 Datum:
12.05.2014 15:01:06		 Views:
1561		 Rating:
     
Antwort:
  Ja
Thema:
Fehlermeldung: "Run-time error '1004'

Hallo Alle zusammen,

 

ich habe ein kleines Problem mit meiner VBA. Folgende Meldung erscheint, nachdem ich das VBA debugge bzw. den Makro ausführen lassen will:

 

"Run-time error '1004'

Document not saved. The document may be opened, or an error may have been encountered when saving"

 

Ich habe den Code kommentiert. Von daher sollte die Funktion dessen ersichtlich sein. Ich will also eine sheet konfigurieren und es mir als pdf abspeichern lassen. Das funktioniert ganz gut. Nur jetzt habe ich das VBA in eine andere Arbeitsmappe implementieren wollen. Den Code habe ich in ein Modul dergleichen Arbeitsmappe eingefügt. Will ich das VBA als Makro laufen lassen, dann tritt oben beschriebener Fehler auf.

Beim Debuggen wird mit dem kleinen gelgen Pfeil auf die Stelle "OpenAfterPublish:=False" verwiesen, d.h. über dem Kommentar "Code zum Anzeigen der PDF-Vorschau".

Habt ihr eine Idee, was ich falsch gemacht habe?

?
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
41
42
43
44
45
46
47
48
49
50
51
Sub PDF_Create()
 
' PDF_Create Macro
 
    'Deklarierung von Variablen
     
    Dim pfad As String
    Dim name As String
    pfad = Range("AI2").Value
    name = Range("AI1").Value
    Dim blatt As Worksheet
     
    'Konfiguration der Datei, die als PDF gespeichert werden soll
     
    With ActiveSheet.PageSetup
    .PrintArea = Range("AI3").Value              'Auswahl der Range
    .Orientation = xlPortrait                   '"xlLandscape" oder "xlPortrait"
    .Zoom = Range("AI11").Value
    .FitToPagesTall = Range("AI5").Value         'Sheet hinsichltich Höhe automatisch an Seite anpasssen
    .FitToPagesWide = Range("AI6").Value         'Sheet hinsichtlich Breite automatisch an Seite anpassen
    .CenterHorizontally = Range("AI12").Value
    .CenterVertically = Range("AI13").Value
    .PrintGridlines = Range("AI14").Value
    End With
 
Worksheets("RELEASE").PageSetup.TopMargin = _
 Application.CentimetersToPoints(Range("AI7").Value)         'Abstand zum oberen Seitenrand
Worksheets("RELEASE").PageSetup.BottomMargin = _
 Application.CentimetersToPoints(Range("AI8").Value)         'Abstand zum unteren Seitenrand
Worksheets("RELEASE").PageSetup.RightMargin = _
 Application.CentimetersToPoints(Range("AI9").Value)         'Abstand zum rechten Seitenrand
Worksheets("RELEASE").PageSetup.LeftMargin = _
 Application.CentimetersToPoints(Range("AI10").Value)        'Abstand zum oberen Seitenrand
 
    'Code für die Speicherung des Sheets als PDF
     
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        pfad & name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
   'Code zum Anzeigen der PDF-VOrschau
    
    For Each blatt In Worksheets
    If blatt.Visible = Range("AI4") Then
    blatt.PrintPreview
    End If
  
    Next blatt
     
End Sub

FG

 

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 Fehlermeldung: "Run-time error '1004'
 12.05.2014 15:01:06 Tom
NotSolved
12.05.2014 15:22:48 Gast26324
Solved
12.05.2014 15:30:11 Gast6780
NotSolved
12.05.2014 15:44:55 Gast70751
Solved
12.05.2014 15:45:06 Gast42413
NotSolved
12.05.2014 18:43:45 Gast52724
NotSolved