Clever-Excel-Forum

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 ?

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é

Hallo Rene,

Das funktioniert leider nicht.

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

Hallo,

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

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