Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro bei Doppelklick text als Hyperlink format

Makro bei Doppelklick text als Hyperlink format
20.03.2018 23:20:38
blangmantl
Hallo,
kann mir jemand den Code sagen, wie ich in einer Tabellenspalte erreiche, dass wenn man auf die Zelle in der Spalte doppelklickt, der Text darin als Hyperlink formatiert wird? in diesen Spalten stehen E-Mail Adressen, die aber ggf bei einem Import nicht als Hyperlink erkannt werden, deshalb möchte ich in der Spalte, wo der drinsteht auf Doppelklick, dass der Text dort dann als E-Mail Hyperlink formatiert wird.
Wer kann so nett sein und mir den Code geben?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro bei Doppelklick text als Hyperlink format
21.03.2018 00:01:29
Sepp
Hallo ?,
Microsoft Excel Objekt Tabelle1
Option Explicit 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
 
If IsValidMailAddress(Target) Then 
  Cancel = True 
  Me.Hyperlinks.Add Anchor:=Target, Address:="mailto:" & Target.Text, TextToDisplay:=Target.Text 
End If 
 
End Sub 
 
Private Function IsValidMailAddress(ByVal strAddress As String) As Boolean 
Dim oRegExp As Object 
Set oRegExp = CreateObject("vbscript.regexp") 
 
With oRegExp 
  .Pattern = "[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|" & _
             "}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:" & _
             "[a-z0-9-]*[a-z0-9])?" 
 
  .IgnoreCase = True 
 
  IsValidMailAddress = .test(strAddress) 
End With 
 
Set oRegExp = Nothing 
 
End Function 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 AB
1Gruß Sepp
2Windows 10 64 bit
3Office 365 32 bit

Anzeige
AW: Makro bei Doppelklick text als Hyperlink format
21.03.2018 00:22:02
blangmantl
Danke Schön, funktioniert super
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige