Office: Excel Hyperlink automatisch generieren

Hi Chris,

wenn ich dein Anliegen richtig verstanden habe, dann sollte der einfachste Weg derjenige sein, dass du diese Ausnahme in der Function abfängst:

Code:

Private Function Eintrag(intSpalte As Integer, rngZelle As Range, strLink As String)
    ' Reaktion auf Eingabe abschalten
    Application.EnableEvents = False
    ' falls bereits ein Link vorhanden dann diesen entfernen
    If rngZelle.Hyperlinks.Count > 0 Then rngZelle.Hyperlinks(1).Delete
    If intSpalte <> 31 Then
        ' Hyperlinkt eintragen
        rngZelle.Hyperlinks.Add anchor:=rngZelle, Address:=strLink & rngZelle.Value
    Else
        ' Hyperlinkt eintragen wenn Spalte AE
        rngZelle.Hyperlinks.Add anchor:=rngZelle, Address:=strLink & rngZelle.Value & "/edit/"
    End If
    ' Reaktion auf Eingabe einschalten
    Application.EnableEvents = True
End Function

---

 

Guten Morgen ,

wow super. Genau so hatte ich mir das vorgestellt.
Vielen lieben Dank, echt klasse von Dir.