Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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?

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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige