AW: Hyperlink aus Excel übernehmen
24.03.2014 13:04:13
Larissa
Hallo Rudi,
das funktioniert ganz bestimmt, nur leider weiss ich nicht genau wie ich den Code in mein Makro intigriere.
Hier ist mein Makro, wobei ich die HTML-Zeichen durch /br/ etc. ersetzt habe:
Sub SendAllx()
Dim sSheet As String
Dim sText As String
Dim sTo As String
Dim sSubject As String
Dim lRow As Long
Dim myRng As Range
With ActiveSheet
lRow = .Cells(.Rows.Count, 7).End(xlUp).Row
sSubject = Sheets("NL_Text").Range("A2").Value
For Each myRng In .Range(.Cells(2, 7), .Cells(lRow, 7))
If myRng.Value = "x" Then
sTo = .Cells(myRng.Row, 8).Value
sText = .Cells(myRng.Row, 5) & "/br/ /br/" & _
Sheets("NL_Text").Range("B2").Value & "/br/ 1. " & _
Sheets("NL_Text").Range("B3").Hyperlinks(1).Address
sText = "/font face=""Calibri""/" & sText & "//font/"
Call SendMailOutlook(sSubject, sTo, sText)
End If
Next myRng
End With
End Sub
So ist es wahrscheinlich einfacher die Displaygeschichte einzubauen.
Vielen Dank für Deine Hilfe
Larissa