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