Sub HtmlInVariable()
Dim varHtml$: varHtml = "<html>Hallo!<br><br><b>Mein Testeintrag aus Zelle""A1""</b><br><br><font color=""#FF0000"">" & Tabelle1.Range("A1") & "</font><br><br>Mit freundlichen Grüßen<br>Dein Name<br><br></html>"
End Sub
strFehlerbild = Replace(strFehlerbild, vbLf, "<br>")
replace(text,vblf,"
")