E-Mail mit Text als Link

[AlpenZwerg]

Hallo,

ich möchte in eine Zelle ( mailto:test@domain.de?subject=Email-Betreff.&body=Email-Nachricht ) einfügen.
Das funktioniert auch mit Variablen wie folgt:

Worksheets("Emails").Cells(ZielZeile, 3).Value = "mailto:" & Email-adress & "?subject=" & Email-Betreff & ".&body=" & Email-Inhalt

Der gewünschte Text wird in die Zelle kopiert, aber kann nicht einfach mit der Maus ausgelöst werden ...
Der Link ist nicht aktiv ( noch schwarz ) ich muß nach dem Text mit der Maus in jede Zelle und dann Enter drücken ...
Dann sind die Zelleninhalte als Link aktiv ( Blau ). Wie kann ich das mit einem Makro lösen ?

[mumpel]

Hallo!

Schau Dir mal das Hyperlinks.Add-Modell an.

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
                               Address:="mailto:" & Emailadress & _
                                         "?subject=" & EmailBetreff & _
                                         "&body=" & EmailInhalt, _
                               TextToDisplay:="Max Mustermann"

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

Gruß, René

[AlpenZwerg]

Hallo Rene,

Das funktioniert leider nicht.

[mumpel]

Was funktioniert nicht? Gibt es Fehlermeldungen? Hast Du den Code auch korrekt umgesetzt?

[AlpenZwerg]

Hallo,

Danke für Deine Hinweise ich habe noch einiges angepasst und jetzt funktioniert es.

[mumpel]

Bei Anchor musst Du natürlich auf die Zielzelle referenzieren. Im Beispielcode wird auf die aktive Zelle (Selection) referenziert.