Thema Datum  Von Nutzer Rating
Antwort
18.09.2015 10:05:44 Ronald
NotSolved
20.09.2015 02:17:39 Gast47942
Solved
20.09.2015 07:07:32 Gast9441
Solved
20.09.2015 08:58:49 Gast28904
NotSolved
Rot Mehrzeiligen HTML-Text in eine einzelne Zelle importieren
 21.09.2015 22:23:40 Gast41122
NotSolved

Ansicht des Beitrags:
Von:
Gast41122		 Datum:
21.09.2015 22:23:40		 Views:
1028		 Rating:
     
Antwort:
  Ja
Thema:
Mehrzeiligen HTML-Text in eine einzelne Zelle importieren

uhh da stimmten noch die Indizes nicht bei beliebigen Zeilen, das sieht besser aus:

Option Explicit
 
Public Sub test()
Dim objCell As Range
Dim ialngIndex As Long, ialngStart As Long
Dim lngStartCount As Long, lngCount As Long
Dim strText As String
Dim ablnBold() As Boolean
Dim alngColor() As Long
Application.ScreenUpdating = False
Call ActiveSheet.Cells(1, 1).PasteSpecial(Paste:=xlPasteAll)
For Each objCell In Selection
   With objCell
        If .Characters.Count > 0 Then
          ialngIndex = ialngIndex + .Characters.Count
          strText = strText & .Text & " "
          ReDim Preserve ablnBold(ialngIndex) As Boolean
          ReDim Preserve alngColor(ialngIndex) As Long
          For ialngStart = lngStartCount + 1 To ialngIndex
             With .Characters(Start:=ialngStart - lngStartCount, Length:=1).Font
                 ablnBold(ialngStart - 1) = .Bold
                 alngColor(ialngStart - 1) = .Color
             End With
          Next
          lngCount = lngCount + 1
          lngStartCount = ialngIndex + lngCount
        End If
   End With
Next
With Selection
    Call .ClearContents
    With .Cells(1, 1)
        .WrapText = True
        .Value = strText
        For ialngStart = 1 To UBound(ablnBold) + 1
           With .Characters(Start:=ialngStart, Length:=1).Font
                .Bold = ablnBold(ialngStart - 1)
                .Color = alngColor(ialngStart - 1)
           End With
        Next
        Call .Select
    End With
End With
End Sub

u.a. hiermit getestet:

 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" /><title></title>
</head>
<body>
<p>This is the first row with <span style="color:red">red</span> <b>and bold</b> Text</p>
<p><span style="color:green">This is a second paragraph</span> which appears <span style="color:magenta"><b>in a new row</b></span> which it shouldn't</p>
<p><span style="color:green">This is a second paragraph</span> which appears <span style="color:magenta"><b>in a new row</b></span> which it shouldn't</p>
<p><span style="color:green">This is a second paragraph</span> which appears <span style="color:magenta"><b>in a new row</b></span> which it shouldn't</p>
<p>This is the first row with <span style="color:red">red</span> <b>and bold</b> Text</p>
<p><span style="color:blue"><b>This is the first row</b></span> with <span style="color:red">red</span> <b>and bold</b> Text</p>
</body>
</html>

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.09.2015 10:05:44 Ronald
NotSolved
20.09.2015 02:17:39 Gast47942
Solved
20.09.2015 07:07:32 Gast9441
Solved
20.09.2015 08:58:49 Gast28904
NotSolved
Rot Mehrzeiligen HTML-Text in eine einzelne Zelle importieren
 21.09.2015 22:23:40 Gast41122
NotSolved