<code><font color=green>' Tabellen-Definition in HTML-Datei schreiben</font>
<font color=green>' Feldnamen der Tabelle dienen gleichzeitig der</font>
<font color=green>' Bezeichnung der HTML-Tabellenspalten</font>
<font color=green>' Optional: Eigene Spaltenüberschriften</font>
<font color=green>'   Hierzu im sOwnHeader-Parameter die Spaltentitel 
' getrennt</font>
<font color=green>'   mit vbTab übergeben</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  HTMLBegTableDef(F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>, _
  Tabelle <font color=#000099>As</font> Recordset, Optional <font _
  color=#000099>ByVal</font> sOwnHeader <font color=#000099>As</font> <font _
  color=#000099>String</font> = "")
 
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> sTitel() <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=#000099>Print</font> #F, "<TABLE WIDTH=100% CELLPADDING=0 " & _
    "CELLSPACING=2 BORDER=0>"
 
  <font color=#000099>With</font> Tabelle
    <font color=green>' Eigene Titelzeile (mit freien 
    ' Spalten-Überschriften)</font>
    <font color=#000099>If</font> sOwnHeader <> "" <font _
      color=#000099>Then</font>
      sTitel = Split(sOwnHeader, vbTab)
      <font color=#000099>If</font> <font color=#000099>UBound</font>(sTitel) _
        <> .Fields.Count - 1 <font color=#000099>Then</font>
        <font color=#000099>ReDim</font> Preserve sTitel(.Fields.Count - 1)
      <font color=#000099>End</font> <font color=#000099>If</font>
    <font color=#000099>Else</font>
      <font color=#000099>ReDim</font> sTitel(.Fields.Count - 1)
    <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=#000099>Print</font> #F, "<TR BGCOLOR=#D7D7D7>"
    <font color=#000099>For</font> I = 0 <font color=#000099>To</font> _
      .Fields.Count - 1
      <font color=#000099>Print</font> #F, "  <TH>";
      <font color=#000099>Print</font> #F, IIf(sTitel(I) = "", .Fields(I).Name, _
        sTitel(I));
      <font color=#000099>Print</font> #F, "</TH>"
    <font color=#000099>Next</font> I
    <font color=#000099>Print</font> #F, "</TR>"
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>

HTMLBegTableDef F, Tabelle, "Spaltebez1" + vbTab + "Spaltenbez2"