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