Hyperlink mit Makro streikt

[kliffi01]

Hallo zusammen,

habe ein Makro welches mir einige Arbeitsschritte abnimmt. Unter anderem auch die Erstellung von Hyperlinks. Dort muss ich nur selbst die Datei suchen die verlinkt werden soll. Den Link mit Beschriftung erstellt es von alleine. Und genau da taucht das Problem auf:

Code:

    Dim MyFile, varBefundNr As Variant
    Dim strBefundPfad, strDateiName As String

        ' Auswahl des Prüfbefundes
        MsgBox "Bitte den zugehörigen Prüfbefund auswählen"
        strBefundPfad = Application.GetOpenFilename("PDF (*.pdf), *.pdf")
        varBefundNr = ThisWorkbook.ActiveSheet.Range("H8")
    
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(5, 2).End(xlDown).Offset(0, 8), _
        Address:=strBefundPfad & strDateiName, _
        TextToDisplay:=varBefundNr

In H8 steht für gewöhnlich eine Abfolge mit Buchstaben und Zahlen. Steht dort nur eine Zahlenfolge z.B. 121542852, stoppt das Makro mit der Meldung "Fehler 5, ungültiger prozeduraufruf oder ungültiges argument".
Kann mir jemand helfen bitte?

Grüße
Martin

[kliffi01]

Habe es selbst hinbekommen. Die Antwort war so einfach, ich musste nur den Datentyp von Variant auf String umstellen und jetzt klappt es mit reinen Buchstaben und reinen Zahlen beidermaßen.

Grüße
Martin