Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: StefKe am Juni 17, 2016, 13:41:28 Nachmittag

Titel: Application.FollowHyperlink Fehlermeldung
Beitrag von: StefKe am Juni 17, 2016, 13:41:28 Nachmittag

Hallochen allerseits, falls der Benutzer die Inputbox abbricht soll die gespeicherte Datei geöffnet werden. Leider erscheint an diesem Punkt eine Fehlermeldung.

Code: [Auswählen]

Sub SpeichernUndDrucken()

Dim strPfad As String
Dim strKopie As String
Dim intRgNr

intRgNr = 23

strPfad = "C:\Users\Stefan\Desktop\" & intRgNr & ".pdf"
    Application.DisplayAlerts = False
        Worksheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPfad, Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.DisplayAlerts = True
   
 'InputBox anzeigen:     
    strKopie = InputBox("Wieviel Kopien Drucken?", "Druckmenge", "...bitte die Stückzahle eingeben")
    If strKopie = "" Or strKopie = "...bitte die Stückzahle eingeben" Then
    Application.FollowHyperlink (strPfad) 'Hier erscheint die Fehlermeldung, hatt vermutlich was mit "" :-(
    Else
    Exit Sub
    End If
End Sub
FollowHyperlink erkennt den Link nicht.
strPfad = "" & strPfad & "" macht auch keinen Sinn...wie ist das Problem zu lösen?

Danke!
Stefan

Hab den Fehler grad gefunden:

Application.FollowHyperlink (strPfad) = Falsch
ThisWorkbook.FollowHyperlink (strPfad) = Richtig....