hyperlink= "=HYPERLINK( " & Chr(34) & dateiname & Chr(34) & ";" & an_nr & ")"
'Var1.
workSheet.Application.Cells(orgn, 25).FormulaLocal = hyperlink
'Der text wird ordnungsgemäß übernommen aber nicht als Hyperlink bzw Formel 
' aktiviert. Wenn ich den Text nochmals im Excel markiere und in ein neues Feld 
' einfüge wird der hyperlink erstellt!
 
'Var2.
workSheet.Application.Hyperlinks.Add Anchor:=.Range("A5"), Address:=dateiname
'Hier erscheint die Fehlermeldung das Objekt nicht richtig definiert ist (Range)
 
'Var3 
workSheet.Application.Hyperlinks.Add Anchor:=.Range(.cells(orgn, 25)), _
  Address:=hyperlink
'Selbe Fehlermeldung wie in Var2
 
'Var.4
With workSheet
                With .Application
                    With .Cells(orgn, 25)
                        With .Formula = hyperlink
                        End With
                    End With
                End With
              End With
'auch leider kein Erfolg
 
'Anmerkung: Diese Daten werden alle in die Tabelle gschrieben
            workSheet.Application.Cells(orgn, 1) = angebot_nr
            workSheet.Application.Cells(orgn, 2) = uf_end.tb_kat.Text
            workSheet.Application.Cells(orgn, 3) = uf_end.tb_ukat.Text
            workSheet.Application.Cells(orgn, 4) = uf_end.tb_produkt.Text
            workSheet.Application.Cells(orgn, 7) = ThisDocument.lbl_datum
            workSheet.Application.Cells(orgn, 8) = ThisDocument.tb_titel.Text
            workSheet.Application.Cells(orgn, 9) = uf_end.tb_preis.Text