Excel Zellen Text in HTML konvertieren

Hallo Herr Herber,
zuerst einmal: Gratulation für dieses Forum.
Ich bin noch Laie in Sachen Excel und VBA. Zu dem angegebenen Problem habe ich hier bedingt etwas gefunden, was aber viel zu komplex und nicht ganz passend ist. Daher hoffe ich, dass Sie mir hierbei schnell helfen können.
Ich habe eine Zelle (z.B. B2) mit Text (Courier 12Pkt, manches Fett, etc):
Text 1
Text 2
Text 3
Text 4
Diesen möchte ich einfach in HTML Text umwandeln. Mit Aufzählungszeichen, Formatierung, Absatz, etc.
Also so z.B:

Text 1

Text 1

Text 1

Text 1

Am besten, den Text direkt in der selben Zelle umwandeln.
Bis jetzt habe ich folgendes:


Sub test()
Dim arrText, strText$, i%
arrText = Split(Range("A2"), Chr(10))
For i = LBound(arrText) To UBound(arrText)
If arrText(i) = "" Then
strText = strText & Chr(10)
Else
strText = strText & "" & arrText(i) & "" & Chr(10)
End If
Next i
Range("A2") = strText
End Sub

Da bekomme ich aber nur eine Formatierung in den Text (also

)
Vielen, vielen Dank für ihre Hilfe.
Grüße
Andreas

hallo andreas,
der code erzeugt eine html datei auf laufwerk c mit deinen texten, die in "Tabelle1" spalte a gelistet sind.
<pre>Sub erstellen()
Dim c As Range
Dim objHL As Hyperlink
Dim strHTMLFile As String
Dim strHead As String, strFoot As String, strTmp As String, strTxt As String
strHTMLFile = "D:\text.html"
strHead = "<html><head><title>Texte -Table-</title></head><a></a>"
strHead = strHead & "<style type=""text/css"">table { border-spacing:0px;font-family:Courier; } td"
strHead = strHead & " { font-size:12px; } </style><table>"
strFoot = "</table></html>"
Open strHTMLFile For Output As #1
Print #1, strHead
For a = 1 To Sheets("Tabelle1").Cells(Sheets("Tabelle1").Rows.Count, 1).End(xlUp).Row
strTxt = Sheets("Tabelle1").Cells(a, 1).Text
strTmp = "<tr><td><li></li></td><td><b>" & "</b></td><td><a>" & strTxt & "</a></td></tr>"
Print #1, strTmp
Print #1, "<tr><td><a> </a></td></tr>"
Next a
Print #1, strFoot
Close #1
End Sub</pre>
(die klammern und pre zu beginn und am ende des code musst du rausnehmen)
gruß
selli

Excel Zellen Text in HTML konvertieren

Forumthread: Excel Zellen Text in HTML konvertieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial