VBA - Userform einfügen einer PDF als Hyperlink

[Godman2]

Hallo Hallo aus dem hohen Norden,

ich hab mich mit angehängter Tabelle erstmals an VBA getraut. Es handelt sich um eine Wartungstabelle für techn. Anlagen.
Wie Ihr den Codes entnehmen könnt, habe ich vieles selber in Eigenregie zusammengeschustert. 

Leider stoße ich zur Zeit auf ein Problem.
In Spalte AH habe ich einen CmdBut - "PDF" - eingefügt.
Sobald man Ihn drückt öffnen sich das Userform 4 und es bestehen die Möglichkeit zur Eingabe "Zeile", "Spalte" und "Pfad".

In Zeile soll der Nutzer die Zeilennummer eintragen, die er aktuell bearbeiten möchte.
In Spalte soll grundsätzlich AH stehen.
Der Button Wählen! soll einen bestimmten Pfad auf dem Laufwerk öffnen, in der dann eine PDF ausgewählt werden kann.
Die PDF soll dann - am liebsten - als Hyperlink in die "Zeile" die zuvor eingegeben wurde hinterlegt werden.

Ich weiß keinen Ansatz das Problem zu lösen und bin über jede Hilfe sehr sehr dankbar.

besten Gruß

[Godman2]

Bei Fragen oder Unverständnis aufgrund fehlender Infos bin ich gerne bereit weitere Fragen zu beantworten!!!

[Kuwer]

Hallo,

z.B. so:

Private Sub CommandButton3_Click()

  Dim strPDF As String

  Dim strCurDir As String

  Dim strPDFDir As String

  If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then

    strCurDir = CurDir

    strPDFDir = "N:\Dateien\PDF"  ' <- Pfad entsprechend anpassen

    ChDrive strPDFDir

    ChDir strPDFDir

    strPDF = Application.GetOpenFilename("PDF-Dateien (*.pdf), *.pdf")

    If Not CVar(strPDF) = False Then

      With ActiveSheet ' Worksheets("Tabelle1")

        .Hyperlinks.Add Anchor:=.Cells(TextBox1, TextBox2), _

            Address:=strPDF, _

            ScreenTip:="Link zur PDF-Datei", _

            TextToDisplay:=Dir(strPDF)

      End With

      Unload Me

    End If

    ChDrive strCurDir

    ChDir strCurDir

  Else

    MsgBox "Bitte Einträge für Zeile und Spalte prüfen!", vbInformation

  End If

End Sub

Gruß Uwe