|
Servus zusammen,
ich habe eine Excel-Tabelle, die verschiedene Werte enthält.
Auf Knopfdruck werden diese Werte in eine Word-Datei übertragen, Zellinhalte/-werte werden in einer Word-Datei an bestimmter Stelle per Textmarke eingetragen. Das funktioniert soweit alles.
Hier als Beispiel kurz, wie das läuft:
Dim Auftrag As String
Auftrag = Application.ActiveSheet.Cells(sel_row, 1).Value
Dim Thema As String
Auftrag = Application.ActiveSheet.Cells(sel_row, 2).Value
Dim Ersteller As String
Ersteller = Application.ActiveSheet.Cells(sel_row, 3).Value
Dim EMail As String
EMail = Application.ActiveSheet.Cells(sel_row, 4).Value
Set objWordDoc = objAppWord.Documents.Add(Template:=Application.ActiveWorkbook.Path & "\Vorlage_2025.dotm")
objWordDoc.Bookmarks("Auftrag").Range.Text = Auftrag
objWordDoc.Bookmarks("Thema").Range.Text = Thema
objWordDoc.Bookmarks("Ersteller").Range.Text = Ersteller
objWordDoc.Bookmarks("EMail").Range.Text = EMail
Dieser Teil des Makros stammt von einem Kollegen, nicht von mir.
Nun möchte ich die E-Mail-Adresse des Erstellers gerne als Hyperlink in der Word-Datei haben, nicht nur als Text. Gibt es dazu eine Möglichkeit?
|