Hyperlink in Tabelle aktivieren
29.12.2019 12:13:26
feuerharry
Ich habe eine Userform, die Daten (EMail-Adressen) in die Tabelle einträgt.
Wie kann ich den Code ändern.
Er wandelt alles in Hyperlink um aber es kommt eine msgBox "Die angegebene Datei konnte nicht geöffnet werden"
Wenn ich aber in Zelle klicke, Cursor an das Ende der Zelle setze und enter drücke funkt es.
Ist es möglich mit VBA bei klick auf Hyperlink in Zelle sich EMail Formular mit Adresse öffnet.
Testdatei:
https://www.herber.de/bbs/user/134028.xlsm
Vielen lieben Dank im Voraus
feuerharry
********************************************************************************
Sub Outlook()
Dim Zelle As Range
Dim rngSpalte As Range
Set rngSpalte = Range("B4:B100") 'anpassen!
For Each Zelle In rngSpalte
If Zelle = "" Then Exit For
ActiveSheet.hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value
Next
End Sub