Office: (Office 2010) per Befehlsschaltfläche PDF in Anhängigkeit eines Zellenwertes öffnen

Hallo Zusammen,

ich verzweifle, an einem wahrscheinlich sehr einfachen Problem.
Ich möchte mit einer Schaltfläche ein PDF öffnen, das schaffe ich schon...
Nun möchte ich mit einer Schaltfläche verschiedene PDF öffnen können, der PDF sollt im gleichen Tabellenblatt
in der Zelle A1 abgefragt werden.

Soweit bin ich schon gekommen :

Private Sub Gew_F46_Click()
Dim Datei As String
Datei = "G:\Arbeitsdateien\PDF\'UND HIER müsste der Wert aus Zelle A1 rein'.pdf"
ActiveWorkbook.FollowHyperlink Datei
End Sub

Oder ist das der ganz falsche Ansatz?

Danke & Gruß
Frank

 

Hi Frank,

wo ist das Problem? Die fixen Teile werden per Operator & mit dem variablen Teil verknüpft:

Code:

Datei = "G:\Arbeitsdateien\PDF\" & Range("A1") & ".pdf"

Bis später,
Karin

 

Herzlichen Dank :-)

Gibt s jetzt noch eine Möglichkeit, immer das selbe PDF zu öffnen, wenn der abgefragte Wert in A1 nicht verfügbar ist?

 

Was verstehst du unter "nicht verfügbar" - wenn A1 leer ist oder wenn wenn die in A1 eingetragene Datei in dem Ordner nicht existiert? Meinst du so etwas:

Code:

If IsError(Dir(Datei)) Then
    MsgBox "Datei nicht gefunden"
Else
    ActiveWorkbook.FollowHyperlink Datei
End If

Bis später,
Karin

 

Mit etwas Verspätung " Vielen Dank"
Das öffnen der MsgBox funktioniert nicht, was habe ich im Code falsch gemacht :

Code:

Private Sub CO2_Label_Click()
Dim Datei As String
Datei = "G:\CoC\" & Range("x1") & ".pdf"

If IsError(Dir(Datei)) Then
    MsgBox "Datei nicht gefunden"
Else
    ActiveWorkbook.FollowHyperlink Datei
End If

End Sub

herzlichen Dank!

 

Ändere diese Zeile:

Code:

If Dir(Datei) = "" Then

Bis später,
Karin

 

mit etwas Verspätung : herzlichen Dank :-)