Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Problem mit Hyperlink entfernen | Herbers Excel-Forum


Betrifft: Problem mit Hyperlink entfernen von: Dirk R.
Geschrieben am: 31.12.2009 09:35:52

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.

  

Betrifft: ohne Link erstellen in Zelle. von: Tino
Geschrieben am: 31.12.2009 09:41:50

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 TinoSmilies


  

Betrifft: AW: ohne Link erstellen in Zelle. von: Dirk R.
Geschrieben am: 31.12.2009 09:49:59

Hallo Tino,

super das war die Lösung!!!!
Vielen Dank!!!!

Ich wünsche Dir einen guten Rutsch ins neue Jahr!!!

LG
Dirk R.


Beiträge aus den Excel-Beispielen zum Thema "Problem mit Hyperlink entfernen"