Thema Datum  Von Nutzer Rating
Antwort
29.10.2024 13:36:31 Sabi
NotSolved
29.10.2024 13:50:20 Gast84226
NotSolved
29.10.2024 13:59:44 Sabi
NotSolved
29.10.2024 16:36:29 Gast7094
NotSolved
29.10.2024 16:47:33 Gast47626
NotSolved
30.10.2024 08:00:38 Sabi
NotSolved
31.10.2024 08:11:21 Sabi
NotSolved
Blau Makros und Netzwerklaufwerke...
31.10.2024 11:02:31 Alwin Weisangler
NotSolved
31.10.2024 12:57:24 Sabi
NotSolved

Ansicht des Beitrags:
Von:
Alwin Weisangler
Datum:
31.10.2024 11:02:31
Views:
45
Rating: Antwort:
  Ja
Thema:
Makros und Netzwerklaufwerke...

Hallo Sabi,

um Fehlern auf die Spur zu kommen ist es manchmal besser eine Variable dafür anzulegen. Da kann man im Direktfenster sich den Inhalt der Variable anschauen.

Schau mal so:

Sub pdfErstellen()
    Dim DieDatei As Boolean, Pfad$
   
    If MsgBox("ACHTUNG: Vorhandende Datei kann überschrieben werden!!!" & vbNewLine & "Weiter ?", vbYesNo) = vbYes Then
   
        DieDatei = IstDateiOffen(Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & ".pdf")

        If DieDatei = True Then
            MsgBox "Datei ist bereits geöffnet, Bitte vorher schließen!"
        Else
            Pfad = "N:\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & ".pdf"
            ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
        End If
    
    Else
        MsgBox "Vorgang abgebrochen"
    End If
End Sub

Wenn man dann noch Option Explicit in die 1. Zeile des Moduls schreibt, werden dann auch kleine Fehler angezeigt. Das zwingt zum sauberen Deklarieren der Variablen.

Gruß Uwe


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:

 
 

  • 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
29.10.2024 13:36:31 Sabi
NotSolved
29.10.2024 13:50:20 Gast84226
NotSolved
29.10.2024 13:59:44 Sabi
NotSolved
29.10.2024 16:36:29 Gast7094
NotSolved
29.10.2024 16:47:33 Gast47626
NotSolved
30.10.2024 08:00:38 Sabi
NotSolved
31.10.2024 08:11:21 Sabi
NotSolved
Blau Makros und Netzwerklaufwerke...
31.10.2024 11:02:31 Alwin Weisangler
NotSolved
31.10.2024 12:57:24 Sabi
NotSolved