|
Ok, änderen den Teil wie folgt ab.
If FetchData(Typename:=Trim$(rngTypeD.Text), _
DataType:=Trim$(rngTypeD.Offset(, 1).Text), _
Year:=Trim$(rngYearD.Text), _
DateCell:=rngCellS, _
ErrNumber:=lngErrNum, _
ErrDescription:=strErrDescr) _
Then
rngCellD.Formula = "=" & rngCellS.Address(External:=True)
'rngCellD.Hyperlinks.Add rngCellD, Address:="", SubAddress:=rngCellS.Address(External:=True), ScreenTip:="Gehe zu Quelle..."
'rngCellD.ClearFormats 'wir entfernen mal die Hyperlink-Formatierung (der Hyperlink selbst bleibt bestehen)
|