Option Explicit
 
Private doc As IHTMLDocument
 
Private Sub Command1_Click()
 
Set doc = DHTMLEdit1.DOM
 
With DHTMLEdit1.DOM.body
    .rightMargin = 0
    .leftMargin = 0
    .topMargin = 0
    .bottomMargin = 0
End With
DHTMLEdit1.DOM.body.innerHTML = ""
 
 
Call createTable(2, 2)
 
End Sub
 
 
Public Function createTable(ByVal Rows As Integer, ByVal Cols As Integer)
Dim table As IHTMLTable
Dim Row As IHTMLTableRow
Dim Cell As IHTMLTableCell
 
Dim iRows As Integer
Dim iCols As Integer
 
Set table = doc.createElement("Table")
table.border = 1
 
For iRows = 1 To Rows
    Set Row = table.insertRow
    For iCols = 1 To Cols
         Set Cell = Row.insertCell
         Cell.innerHTML = "hallo"
    Next
Next
 
Call DHTMLEdit1.DOM.body.appendChild(table)
 
 
End Function

DHTMLEdit1.DOM.getElementById("id1").innerText

 
        Cell.Id = "id" & iCols

Gru?

Ralf