Thema: Problem mit Hyperlink entfernen | Herbers Excel-Forum

Hallo Excelgemeinde,
ich habe folgendes Problem und hoffe auf eure Hilfe.
In der nachfolgenden Datei möchte ich Personen eintragen inkl. ihrer email-Adressen.
Diese sollen aber nicht dauernd als Hyperlink dargestellt werden.
Wenn ich nun das Ereignis
"Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)" auslöse, wird der Text (EMAIL-Adresse) als Hyperlink umgewandelt, öffnet eine neue EMAIL und löscht den Hyperlink in der betreffenden Zelle wieder. Das funzt soweit auch ganz gut.
Leider löscht der Code aber auch die formatierte Linie der Zelle!?!?!
Warum passiert das?
Und wie kann ich das verhindern?
Ich hoffe auf eure Hilfe
Hier die Datei:
https://www.herber.de/bbs/user/66908.xls
LG
Dirk R.

Hallo,
versuche es mal ohne einen Link zu erstellen.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("H3:H37")
If Intersect(Target, RaBereich) Is Nothing Or ActiveCell.Value = "" Then Exit Sub
Cancel = True
ActiveWorkbook.FollowHyperlink Address:="mailto:" & ActiveCell.Value, NewWindow:=True
Set RaBereich = Nothing
End Sub

Einen Guten Rutsch wünscht Tino

Hallo Tino,
super das war die Lösung!!!!
Vielen Dank!!!!
Ich wünsche Dir einen guten Rutsch ins neue Jahr!!!
LG
Dirk R.