Zelle als HTML | Herbers Excel-Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...René & Sepp,
denn ich musste das auch so machen!
Ist dir eigentlich klar, René,
was das für ein riesiger Arbeitsaufwand ist, alle möglichen Zellformate mit HTML abzubilden? Ich arbeite daran schon seit Monaten und finde immer noch Formate, die nicht 100%ig wiedergegeben wdn...
Wenn du da 'n paar Spezialisten unter den Usern hast, wird das Ganze richtig aufwendig. Außerdem ist es ein Unterschied, ob du wirklich alle Formate oder nur die aktuell wirksamen in HTML codieren willst. Nur Letzteres würde nämlich in HTML Sinn machen, falls das auch angwendet wdn soll. Das ganze Format kann man dann ja anderweitig bzw separat in Teilen dokumentieren.
Zuerst solltest du also genau wissen, wofür es gebraucht wird, was dazu erforderlich ist und wie das organisiert wdn soll. Dann benötigst du Routinen, die dir ein Zellformat in der erforderlichen Detailliertheit exakt wiedergeben können. Erst zum Schluss kommt HTML ins Spiel. Da musst du dir dann überlegen wie du xl/vbBezeichnungen in HTML-Bezeichnungen überträgst. Nicht alle xlFormatierungen sind HTML-kompatibel bzw -übersetzbar, da musst du dann Entscheidungen treffen...
Ich bin jedenfalls auf 12 Format-Hptpkte gekommen — unter xl12 könnten es noch mehr wdn.
Nehmen wir mal dein Bsp mit den verschieden Textfarben in einer Zelle...
Eine Zelle kann ein intern bedingtes Format enthalten, mit dem man schon vor xl12 4 verschiedene Farben inhaltsabhängig für die ganze Zelle festlegen konnte. Eine 5.Farbe kann man primär einstellen, die wird dann bei Fehlerwerten wirksam. Das Primat hat aber die (extern) bedingte Formatierung zu der jeweils erfüllten Bedingung. Das waren vor xl12 nur 3, können nun aber sehr viele sein. Die müssen alle abgeprüft wdn, wenn du einen HTML-Code willst, der den aktuellen Realzustand darstellt. Jetzt gab es bisher noch interessante Nebeneffekte. Ist der Zellinhalt bspw 2farbiger Text, musst du das zeichenweise prüfen, weil das Ergebnis für den gesamten Text in diesem Fall stets Null ist. Also, ist IsNull(...Font.ColorIndex) Wahr, musst du Einzelzeichen prüfen sonst nicht. Hast du ein intern bedingtes Format mit einer Farbe für Text vereinbart, also z.b. 0;-0;0;[Rot]@ wird der ganze Text stets rot, auch wenn er eigentlich 2farbig ist (nimmst du die nämlich wieder weg, ist er wieder 2farbig!). Hast du aber eine (extern) bedingte Formatierung mit erfüllter Bedingung =ISTTEXT(...) und Blau darauf zu liegen, hat die das Primat und es wird nur der 1.Teil des 2farbigen Textes Blau, der Rest behält die ursprgl Farbe(n). Hast du aber außerdem noch eine intern bedingte Farbe für Text vereinbart (hier [Rot]@), wird der ganze Text bei erfüllter externer Bedingung Blau...
Wenn das unter xl12 immer noch so ist, bilde das mal mit HTML nach...!
Viel Spaß ihr beiden beim Werkeln, aber vorerst mal schöSo!
Gruß Luc :-?

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub test() MsgBox RangeHTML(Range("A1:F100")) End Sub Private Function RangeHTML(Source As Range) As String Dim rngRow As Range, rng As Range Dim strTmp As String, strText As String Dim vntRowColor As Variant strTmp = "<table border=0>" For Each rngRow In Source.Rows vntRowColor = rngRow.Font.Color If VarType(vntRowColor) = vbNull Then strTmp = strTmp & "<tr height=" & Fix(rngRow.RowHeight) & "px>" Else strTmp = strTmp & "<tr height=" & Fix(rngRow.RowHeight) & "px color=" & HTMLColor(vntRowColor) & ">" End If For Each rng In rngRow.Cells strText = Replace(rng.Text, vbLf, " ") strTmp = strTmp & "<td width=" & Fix(rng.Width) & "px>" If VarType(vntRowColor) = vbNull Then strTmp = strTmp & "" End If If rng.Font.Bold Then strTmp = strTmp & "" & strText & "" Else strTmp = strTmp & strText End If If VarType(vntRowColor) = vbNull Then strTmp = strTmp & "" End If strTmp = strTmp & "</td>" Next strTmp = strTmp & "</tr>" Next strTmp = strTmp & "</table>" RangeHTML = strTmp End Function Private Function HTMLColor(ByVal Color As Long) As String Dim R As Integer, G As Integer, B As Integer Dim strR As String * 2, strG As String * 2, strB As String * 2 R = Color And 255 G = (Color \ 256) And 255 B = Color \ 65536 strR = Hex(R) & "00" strG = Hex(G) & "00" strB = Hex(B) & "00" HTMLColor = "#" & strR & strG & strB End Function Gruß Sepp

...René...
1. Schriftfarbe (ohne intern und extern bedingte Formatierung):
1.1 Auslesen mit sfb = Cells(..., ...).Font.Color
1.2 If IsNull(sfb) Then → zeichenweiser Vgl mit ...Characters(p, 1).Font.Color und entweder merken mit p (Position) oder nur die verschiedenen Farben sammeln.
1.3 Sonst hast du die Farbe für den ganzen Text, die aber in beiden Fällen nicht unbedingt mit der sichtbaren übereinstimmt!
1.4 Umwandeln in Hexadezimal mit sfx = Right("00000" & Hex(sfb), 6) und dann noch die ersten beiden Stellen mit den letzten beiden tauschen, damit aus BGR RGB wird und # davorsetzen.
1.5 Umwandeln in HTML: sfh = "" & zelltext & "
2. Fettschrift:
2.1 Auslesen mit sff = Cells(..., ...).Font.Bold (True/False) bzw ...Font.FontStyle, da ist dann auch noch kursiv (Italic) mit dabei.
2.2 Wenn nur Textteile fett sind, ist zumindest eine dieser Eigenschaften Null, so dass man auch hier daran die zeichenweise Durchsuchung festmachen kann. Falls das zu aufwendig wird, muss eben stets nur das 1.Zeichen geprüft wdn — ...Characters(1, 1)... Dann sollte es kein Null geben.
2.3 Umwandeln in HTML bei True wie bekannt als ... oder moderner als ...
3. Zeilenumbruch:
Das ist so 'ne Sache, denn normalerweise gibt's keinen in einer Zelle. Wenn man ihn einstellt, wird automatisch an bestimmten Stellen (meist nur Leerzeichen) umgebrochen. Wenn man diese Einstellung abfragt, weiß man nur, dass umgebrochen wdn soll. Ob und wo das tatsächlich passiert ist so nicht feststellbar, auch nicht mit Cells(..., ...).Text! Was anderes wäre es, wenn absolute Zeilenumbrüche enthalten sind — nach denen könnte man suchen — Chr(10) vbLf bzw Chr(13) vbCrLf. Das entspräche in HTML  . Anderenfalls muss die Spaltenbreite mit Textlänge, Schriftart und -größe korreliert wdn.
4. Umwandeln in HTML mit dem Zelltext insgesamt nur am 1.Zeichen orientiert:

With Cells(..., ...).Characters(1, 1).Font
sfg = "<font size=" & .Size & "pt color=" & sfh & ">" & _
IIf(.Bold, "<b>", "") & Cells(..., ...) & IIf(.Bold, _
"</b>", "") & "</font>"
End With

So, nun mach was draus...! ;-)
Gruß+schöSo, Luc :-?

Beliebteste Forumthreads (12 Monate)

Zelle als HTML | Herbers Excel-Forum

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread