<\/p>\n
In den vorherigen Ausgaben von Access im Unternehmen und in der aktuellen Ausgabe arbeiten wir in einigen Beiträgen mit dem Webbrowser-Steuerelement und stellen Daten, die wir mit den Bordmitteln von Access nicht adäquat darstellen können, mit HTML im Webbrowser-Steuerelement dar. Damit erhalten wir wesentlich flexiblere Möglichkeiten, aber auch der Aufwand steigt. Eine Anforderung, die bisher nicht erfüllt wurde, ist das Fixieren der obersten Zeile in einer Ansicht, in der wir zur Anzeige aller Daten nach unten scrollen mussten. Wie wir den Daten einer Tabelle eine fixe Kopfzeile hinzufügen, zeigen wir in diesem Beitrag.<\/b><\/p>\nProblem<\/h2>\n
Wenn wir in einem Webbrowser-Steuerelement eine HTML-Seite mit einer größeren Menge Daten in einer HTML-Tabelle laden, wird diese wie gewünscht angezeigt – auch inklusive der Überschriften im Tabellenkopf.<\/p>\n
Sobald wir jedoch nach unten scrollen, um die aktuell nicht sichtbaren Daten anzusehen, verschwinden nicht nur die obersten Datensätze, sondern auch die Kopfzeile mit den Spaltenüberschriften wird nach oben aus dem sichtbaren Bereich geschoben. Das wollen wir ändern, indem wir die Kopfzeile irgendwie oben fixieren.<\/p>\n
Im Web werden viele Lösungen für dieses Problem vorgeschlagen. Viele davon nutzen Techniken wie Javascript. Hier ist nicht sichergestellt, dass alle Browser dies wie gewünscht darstellen.<\/p>\n
Da das Webbrowser-Steuerelement den aktuell im System als Standardbrowser eingestellten Browser verwendet, sollten Sie hier eine Technik verwenden, die möglichst von allen aktuellen Browsern unterstützt wird. Unser Ergebnis soll wie in Bild 1 aussehen.<\/p>\n
![\"HTML-Tabelle](\"..\/fileadmin\/_temp_\/2019_03\/pic_1188_001.png\")
<\/p>\n
Bild 1: HTML-Tabelle mit Scrollbalken<\/span><\/b><\/p>\n In diesem Fall wählen wir eine Lösung, die nur auf CSS basiert. In diesem Fall wollen wir nicht mehr, dass der Benutzer den kompletten Inhalt des Webbrowser-Steuerelements scrollen muss, sondern nur noch den Teil der Tabelle mit den Daten.<\/p>\n Der Trick dabei ist, dass wir zwei Tabellen nutzen: Die erste zeigt nur eine Zeile mit den Spaltenüberschriften an, die zweite die eigentlichen Daten. Damit der Benutzer in der zweiten Tabelle durch die Datensätze scrollen kann, benötigen wir ein spezielles Attribut. Außerdem fügen wir die zweite Tabelle in die erste Tabelle ein.<\/p>\n Bevor wir uns die Funktionen zum Erstellen des HTML-Codes und des CSS-Codes ansehen, wollen wir noch die Prozeduren zum Formular hinzufügen, welche das Webbrowser-Steuerelement mit den Daten aus diesen Funktionen füllen. Im Klassenmodul des Formulars fügen wir im allgemeinen Teil zwei Objektvariablen ein:<\/p>\n Die erste wird in der Prozedur gefüllt, die durch das Ereignis Beim Öffnen <\/b>des Formulars ausgelöst wird:<\/p>\n Hier füllen wir das Webbrowser-Steuerelement allerdings noch nicht. Dies erledigen wir nach einer kurzen, aus technischen Gründen notwendigen Verzögerung. Dazu stellen wir das Zeitgeberintervall auf 50ms ein und hinterlegen eine Prozedur für das Ereignis Bei Zeitgeber<\/b>, die nach diesem Zeitraum ausgelöst wird:<\/p>\n Die Prozedur leert das Webbrowser-Steuerelement, weist der Objektvariablen objDocument <\/b>das im Webbrowser-Steuerelement enthaltene Dokument zu, setzt TimerInterval <\/b>auf 0<\/b>, damit diese Ereignisprozedur nicht nochmals ausgelöst wird, und weist dann der Eigenschaft innerHTML <\/b>das Ergebnis der später vorgestellten Funktion HTMLCode <\/b>zu. Diese liefert den vollständigen HTML-Code.<\/p>\n Damit Sie bei Änderungen des HTML-Codes die Änderungen direkt einsehen können, haben wir die Schaltfläche cmdAktualisieren <\/b>hinzugefügt. Diese liest den HTML-Code neu ein:<\/p>\n Außerdem rufen beide Prozeduren die Routine InZwischenablage <\/b>auf, um den Inhalt des Webbrowser-Steuerelements in die Zwischenablage zu kopieren. Sie können diesen dann etwa in einen Texteditor einfügen, um sich den resultierenden HTML-Code anzusehen. Wenn Sie diese Funktion nicht benötigen, können Sie die Aufrufe von InZwischenablage <\/b>auch einfach entfernen.<\/p>\n Wir haben die Anweisungen für das Zusammenstellen des HTML-Codes zunächst in zwei Prozeduren aufgeteilt. Die erste übernimmt die Hauptaufgabe und stellt den eigentlichen HTML-Code zusammen, die zweite steuert das Style<\/b>-Element mit den CSS-Eigenschaften bei.<\/p>\n Schauen wir uns zunächst die Prozedur HTMLCode<\/b> an, die Sie in Listing 1 finden. Hier starten wir gleich mit der Deklaration einer Database- und einer Recordset-Variablen sowie einer Textvariablen namens strHTML<\/b>, in welcher wir den HTML-Code zusammenstellen.<\/p>\n <\/p>\n Listing 1: Listing zum Zusammenstellen des HTML-Codes<\/span><\/b><\/p>\n Die Prozedur referenziert das aktuelle Database<\/b>-Objekt mit der Variablen db <\/b>und alle Datensätze der Abfrage qryArtikelMitKategorieUndLieferant <\/b>mit der Recordset-Variablen rst<\/b>.<\/p>\n Die Abfrage qryArtikelMitKategorieUndLieferant <\/b>stellt die Daten der Tabellen tblArtikel<\/b>, tblKategorien <\/b>und tblLieferanten <\/b>wie in Bild 2 zusammen.<\/p>\n Bild 2: Datenquelle für die HTML-Tabelle<\/span><\/b><\/p>\n Im Anschluss beginnt die Prozedur mit dem Zusammenstellen des HTML-Codes in der Variablen strHTML<\/b>. Direkt zu Beginn greift sie dabei auf die Funktion HTMLStyle <\/b>zu, welche die CSS-Definition liefert – mehr dazu weiter unten. Der Teil nach der CSS-Definition sieht wie folgt aus. Dabei startet der HTML-Code mit einem table<\/b>-Element mit der Klasse tableheaders<\/b>:<\/p>\n Danach folgen im thead<\/b>-Element die Spaltenüberschriften, denen wir als Klasse th1 <\/b>bis th6 <\/b>zuweisen:<\/p>\n Das tbody<\/b>-Element nimmt zunächst ein tr<\/b>– und ein td<\/b>-Element auf, wobei das td<\/b>-Element fünf Spalten umfassen soll (colspan=“5″<\/b>). Somit ist es genauso breit wie die fünf Überschriftenspalten:<\/p>\n Darunter beginnen wir ein div<\/b>-Element, dass die Klasse scrolling<\/b> abbildet:<\/p>\n Darin finden wir schließlich die Tabelle mit den eigentlichen Daten, die in jeweils einem tr<\/b>-Element je Zeile und fünf th<\/b>– beziehungsweise td<\/b>-Elementen für jede Spalte abgebildet werden. Hier haben wir beispielhaft die ersten beiden Elemente dargestellt, damit Sie einen kleinen, aber feinen Unterschied erkennen, der für jedes zweite tr<\/b>-Element auftaucht – nämlich die Zuweisung einer Klasse für die alternative Hintergrundfarbe mit class=“dk“<\/b>: <\/p>\n Danach folgen noch die schließenden Tags für die bereits geöffneten Elemente:<\/p>\n Dieser Code wird im Grunde Zeile für Zeile zusammengesetzt. Einen dynamischen Teil gibt es dort, wo das tr<\/b>-Element für den jeweiligen Datensatz zusammengestellt wird. Dies geschieht innerhalb einer Do While<\/b>-Schleife über alle Elemente des Recordsets rst<\/b>.<\/p>\n In diesem Recordset prüft die Prozedur zunächst das Ergebnis des Ausdrucks rst.AbsolutePosition Mod 2 <\/b>und vergleicht dieses mit dem Wert 0<\/b>. Bedeutet: Wenn sich die absolute Recordset-Position ohne Rest durch zwei teilen lässt, wollen wir das tr<\/b>-Element mit der Klasse dk <\/b>versehen:<\/p>\n Danach folgen dann die einzelnen Spalten des aktuellen Datensatzes. Schließlich weist die Funktion den Inhalt der Variablen strHTML <\/b>dem Funktionswert HTMLCode <\/b>zu.<\/p>\n Die CSS-Befehle werden in der Funktion HTMLStyle<\/b> zusammengestellt (siehe Listing 2). Die resultierenden HTML-Zeilen sehen wie nachfolgend beschrieben aus. Wir erläutern diese nun im Detail. <\/p>\n Listing 2: Listing zum Zusammenstellen des HTML-Codes mit den CSS-Anweisungen<\/span><\/b><\/p>\n Den Beginn macht das style<\/b>-Element, das die CSS-Anweisungen enthält:<\/p>\n Danach folgen die CSS-Attribute für die einzelnen Elemente und Klassen. Die Klasse tableheaders<\/b> ist dem übergeordneten Element table<\/b> zugewiesen. Sie erhält die folgenden CSS-Attribute, die zunächst für alle Elemente innerhalb des table<\/b>-Elements und das table<\/b>-Element selbst gelten:<\/p>\n Die Tabelle soll 100% der Breite des übergeordneten Elements einnehmen, also 100% des Browserfensters.<\/p>\n border-collapse <\/b>sorgt dafür, dass die Rahmen zweier benachbarter Tabellenzellen zusammengefasst werden. font-family <\/b>legt die Schriftart fest. background <\/b>legt die Hintergrundfarbe fest und color <\/b>die Zeichenfarbe. border <\/b>gibt an, wie der Rahmen gestaltet werden soll – ein Pixel breit, als einfache Linie und mit der Farbe #fff <\/b>wie die Schriftart.<\/p>\n Wenn wir nur diese eine CSS-Anweisung verwenden würden, sähe das Ergebnis wie in Bild 3 aus. Einige der Attribute werden nur auf die äußere Tabelle angewendet – wie die Schriftart und Schriftfarbe -, andere werden auf die untergeordnete Tabelle vererbt, wie die Hintergrundfarbe. Aber wir legen ja noch weitere CSS-Anweisungen für die untergeordneten Elemente fest. Die nächsten Anweisungen benötigen wir für die Breite und die Ausrichtung der Spaltenköpfe. Diese versehen wir mit prozentualen Angaben, damit sich die Breite beim Vergrößern der Breite des Browsers mit ändert:<\/p>\n Bild 3: HTML-Tabelle mit CSS-Attributen<\/span><\/b><\/p>\n Dann folgt die Klasse tablecontent<\/b>, welche die grundlegenden Attribute für die untergeordnete, zu scrollende Tabelle definiert:<\/p>\n Auch hier folgen die Attribute für die enthaltenen Spalten, diesmal mit td1 <\/b>bis td2 <\/b>bezeichnet, welche die Ausrichtung und die Spaltenbreite definieren:<\/p>\n Sie können die CSS-Attribute, wenn Sie experimentieren wollen, zuerst alle auskommentieren und dann Stück für Stück wieder einkommentieren und den Inhalt des Webbrowser-Steuerelements anschließend aktualisieren, um zu prüfen, wie sich die Attribute auswirken. Nach der Anwendung dieser CSS-Attribute passen schon einmal die Schriftart und die Spaltenbreiten der Zeilen zu den Spaltenüberschriften.<\/p>\n Danach folgen einige Attribute, welche sich auf die Elemente auswirken sollen, die zur umgebenden Tabelle mit der Klasse tableheaders <\/b>gehören. Bisher hatten wir Attribute, die Elementen mit einem bestimmten Wert für die Eigenschaft class <\/b>aufweisen, also etwa tableheaders <\/b>oder tablecontent<\/b>.<\/p>\n Aber es gibt noch weitere Möglichkeiten, um CSS-Attribute zuzuweisen – also nicht nur zu Klassen, sondern etwa zu bestimmten Elementtypen wie etwa Absätzen, Tabellen, Tabellenzeilen et cetera.<\/p>\n Diese werden dann im Style<\/b>-Element nicht mit einem vorangehenden Punkt markiert, sondern es wird der Name des mit den Attributen zu versehenden Elements angegeben, also etwa p<\/b>, table <\/b>oder td<\/b>.<\/p>\n Und CSS geht noch einen Schritt weiter: Sie können auch festlegen, dass etwa nur Tabellenzeilen innerhalb eines Elements mit einer bestimmten Klasse mit bestimmten Attributen ausgestattet werden. Dann geben Sie einfach zuerst den Klassennamen (mir führendem Punkt) und dann in geschweiften Klammern die entsprechenden Attribute an.<\/p>\n Wir wollen beispielsweise die Schriftfarbe für alle Elemente auf Weiß einstellen sowie die Hintergrundfarbe für alle Elemente, die wir nicht später noch individuell anpassen, auf einen Grauton:<\/p>\n Wir wollen außerdem die Zellen mit den Daten jeweils mit einem weißen Rahmen versehen. Dazu fügen wir für die td<\/b>-Elemente innerhalb des Elements mit der Klasse tableheaders <\/b>die folgende Zeile hinzu. Hier legen wir auch gleich die Schriftgroße und die Schriftfarbe fest (#fff <\/b>entspricht Weiß):<\/p>\n Danach folgen dann die Ausrichtung und die Schriftgröße für die Spalten- und Zeilenüberschriften der beiden verschachtelten Tabellen:<\/p>\n Die folgenden beiden Zeilen definieren die alternierenden Hintergrundfarben für die Zeilen mit den eigentlichen Daten der Tabelle:<\/p>\n Der Unterschied ist, dass wir einmal alle td<\/b>-Elemente der .tablecontent<\/b>-Klasse ansprechen und diese mit der Farbe #eee <\/b>versehen und einmal nur die Elemente, deren tr<\/b>-Element der Klasse .dk <\/b>zugeordnet ist – diese erhalten die Farbe #ddd<\/b>.<\/p>\n Schließlich, und das ist die wichtigste Einstellung in dieser CSS-Datei, folgt noch die Definition für die Klasse .scrolling<\/b>: Dieser weisen wir nämlich für das Attribut overflow <\/b>den Wert auto <\/b>zu. Dadurch wird das Scrollen innerhalb der Tabelle aktiviert:<\/p>\n Mindestens genauso wichtig ist an dieser Stelle die Einstellung der Höhe des Elements mit der Klasse .scrolling<\/b>: Diese stellen wir hier mit dem Attribut height <\/b>auf 600px <\/b>ein. Wenn wir die Größe nicht einschränken, erhält die Tabelle die Höhe der enthaltenen Elemente und so entfällt auch der Grund zum Scrollen.<\/p>\n Schließlich vervollständigen wir das style<\/b>-Element mit dem schließenden Tag:<\/p>\n Wenn die Höhe der HTML-Tabelle so groß ist, dass diese nicht mehr komplett in den sichtbaren Bereich des Formulars passt, erscheint noch ein zweiter Scrollbalken im Formular – siehe Bild 4.<\/p>\nLösung<\/h2>\n
Füllen des Webbrowser-Steuerelements<\/h2>\n
Dim <\/span>WithEvents objWebbrowser As <\/span>WebBrowser\r\nDim <\/span>WithEvents objDocument As <\/span>HTMLDocument<\/pre>\nPrivate Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n Set<\/span> objWebbrowser = Me!ctlWebbrowser.Object\r\n Me.TimerInterval = 50\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Timer()\r\n objWebbrowser.Navigate \"about:blank\"\r\n Set<\/span> objDocument = objWebbrowser.Document\r\n Me.TimerInterval = 0\r\n DoEvents\r\n objDocument.body.innerHTML = HTMLCode\r\n Inzwischenablage objDocument.body.innerHTML\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAktualisieren_Click()\r\n objDocument.body.innerHTML = HTMLCode\r\n Inzwischenablage objDocument.body.innerHTML\r\nEnd Sub<\/span><\/pre>\nHTML-Code in zwei Prozeduren<\/h2>\n
Private Function <\/span>HTMLCode() As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strHTML As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryArtikelMitKategorieUndLieferant\", dbOpenDynaset)\r\n strHTML = strHTML & HTMLStyle\r\n strHTML = strHTML & \"<table class=\"\"tableheaders\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <thead>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <tr>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <th class=\"\"th1\"\" scope=\"\"col\"\">ID<\/th> \" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <th class=\"\"th2\"\" scope=\"\"col\"\">Artikelname<\/th> \" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <th class=\"\"th3\"\" scope=\"\"col\"\">Lieferant<\/th> \" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <th class=\"\"th4\"\" scope=\"\"col\"\">Kategorie<\/th> \" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <th class=\"\"th5\"\" scope=\"\"col\"\">Einzelpreis<\/th> \" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/tr>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/thead>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <tbody>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <tr>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <td colspan=\"\"5\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <div class=\"\"scrolling\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <table class=\"\"tablecontent\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <tbody>\" & vbCrLf<\/span>\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>rst.AbsolutePosition Mod<\/span> 2 = 0 Then<\/span>\r\n strHTML = strHTML & \" <tr>\" & vbCrLf<\/span>\r\n Else<\/span>\r\n strHTML = strHTML & \" <tr class=\"\"dk\"\">\" & vbCrLf<\/span>\r\n End If<\/span>\r\n strHTML = strHTML & \" <th class=\"\"td1\"\" scope=\"\"row\"\">\" & rst!ArtikelID & \"<\/th>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <td class=\"\"td2\"\">\" & rst!Artikelname & \"<\/td>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <td class=\"\"td3\"\">\" & rst!Firma & \"<\/td>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <td class=\"\"td4\"\">\" & rst!Kategoriename & \"<\/td>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <td class=\"\"td5\"\">\" & Format(rst!Einzelpreis, \"0.00 €\") & \"<\/td>\" _\r\n & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/tr>\" & vbCrLf<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n strHTML = strHTML & \" <\/tbody>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/table>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/div>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/td>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/tr>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/tbody>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \"<\/table>\" & vbCrLf<\/span>\r\n HTMLCode = strHTML\r\nEnd Function<\/span><\/pre>\n![\"Datenquelle](\"..\/fileadmin\/_temp_\/2019_03\/pic_1188_002.png\")
<\/p>\n<table class=\"tableheaders\"><\/pre>\n
<thead>\r\n <tr>\r\n <th class=\"th1\" scope=\"col\">ID<\/th> \r\n <th class=\"th2\" scope=\"col\">Artikelname<\/th> \r\n <th class=\"th3\" scope=\"col\">Lieferant<\/th> \r\n <th class=\"th4\" scope=\"col\">Kategorie<\/th> \r\n <th class=\"th5\" scope=\"col\">Einzelpreis<\/th> \r\n <\/tr>\r\n <\/thead><\/pre>\n
<tbody>\r\n <tr>\r\n <td colspan=\"5\"><\/pre>\n
<div class=\"scrolling\"><\/pre>\n
<table class=\"tablecontent\">\r\n <tbody>\r\n <tr>\r\n <th class=\"td1\" scope=\"row\">1<\/th>\r\n <td class=\"td2\">Chai<\/td>\r\n <td class=\"td3\">Exotic Liquids<\/td>\r\n <td class=\"td4\">Getränke<\/td>\r\n <td class=\"td5\">9,00 €<\/td>\r\n <\/tr>\r\n <tr class=\"dk\">\r\n <th class=\"td1\" scope=\"row\">2<\/th>\r\n <td class=\"td2\">Chang<\/td>\r\n <td class=\"td3\">Exotic Liquids<\/td>\r\n <td class=\"td4\">Getränke<\/td>\r\n <td class=\"td5\">9,50 €<\/td>\r\n <\/tr>\r\n ...\r\n <\/tbody>\r\n <\/table><\/pre>\n
<\/div>\r\n <\/td>\r\n <\/tr>\r\n <\/tbody>\r\n<\/table><\/pre>\n
If <\/span>rst.AbsolutePosition Mod<\/span> 2 = 0 Then<\/span>\r\n strHTML = strHTML & \" <tr>\" & vbCrLf<\/span>\r\nElse<\/span>\r\n strHTML = strHTML & \" <tr class=\"\"dk\"\">\" _\r\n & vbCrLf<\/span>\r\nEnd If<\/span><\/pre>\nZusammenstellen der CSS-Befehle<\/h2>\n
Private Function <\/span>HTMLStyle() As String<\/span>\r\n Dim <\/span>strHTML As String<\/span>\r\n strHTML = strHTML & \"<style>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tableheaders {width:100%; border-collapse:collapse; font-family:calibri; \" _\r\n & \"background:#666666; border:1px solid #fff; color:#fff;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .th1 {width:5%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .th2 {width:30%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .th3 {width:25%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .th4 {width:20%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .th5 {width:20%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tablecontent {width:100%; height:100%; border-collapse:collapse;font-family:calibri}\" _\r\n & vbCrLf<\/span>\r\n strHTML = strHTML & \" .td1 {width:5%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .td2 {width:30%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .td3 {width:25%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .td4 {width:20%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .td5 {width:20%;text-align:left;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tableheaders td {border:1px solid #fff; color:#fff; font-size:12px;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tableheaders tbody {background:#f0c99; color:#fff;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tableheaders th, .tabletwo th {text-align:left; font-size:13px;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tablecontent td {background:#eee; color:#000;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tablecontent tr.dk td {background:#ddd; color:#000;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .scrolling {height:600px;overflow:auto;}\" & vbCrLf<\/span>\r\n strHTML = strHTML & \"<\/style>\" & vbCrLf<\/span>\r\n HTMLStyle = strHTML\r\nEnd Function<\/span><\/pre>\n<style><\/pre>\n
.tableheaders {width:100%; border-collapse:collapse; font-family:calibri; background:#666666; border:1px solid #fff; color:#fff;}<\/pre>\n![\"HTML-Tabelle](\"..\/fileadmin\/_temp_\/2019_03\/pic_1188_003.png\")
<\/p>\n .th1 {width:5%;text-align:left;}\r\n .th2 {width:30%;text-align:left;}\r\n .th3 {width:25%;text-align:left;}\r\n .th4 {width:20%;text-align:left;}\r\n .th5 {width:20%;text-align:left;}<\/pre>\n .tablecontent {width:100%; height:100%; border-collapse:collapse;font-family:calibri}<\/pre>\n .td1 {width:5%;text-align:left;}\r\n .td2 {width:30%;text-align:left;}\r\n .td3 {width:25%;text-align:left;}\r\n .td4 {width:20%;text-align:left;}\r\n .td5 {width:20%;text-align:left;}<\/pre>\n .tableheaders tbody {background:#888; color:#fff;}<\/pre>\n .tableheaders td {border:1px solid #fff; color:#fff; font-size:12px;}<\/pre>\n .tableheaders th, .tabletwo th {text-align:left; font-size:13px;}<\/pre>\n .tablecontent td {background:#eee; color:#000;}\r\n .tablecontent tr.dk td {background:#ddd; color:#000;}<\/pre>\n .scrolling {height:600px;overflow:auto;}<\/pre>\n<\/style><\/pre>\n
![\"HTML-Tabelle](\"..\/fileadmin\/_temp_\/2019_03\/pic_1188_004.png\")
<\/p>\n