Beispieldatenbank funktioniert nicht

[Micharius]

Hallo zusammen

Aufgrund eines Tipps in einem früheren Posting habe ich die Beispielsdatenbank AccToWordtabelle heruntergeladen - siehe Attachment zu diesem Post. Der Aufruf der Sub btnFuellen funktioniert darin leider aber nicht, ich kriege einen "13: Typen unverträglich" Error. Sieht vielleicht jemand, woran das liegt und kann mir weiterhelfen? Selber schaffe ich nicht herauszufinden, was falsch im Code ist.

Sonnige Grüsse

Micharius

[DF6GL]

Hallo,

entferne set  ......

            'Tabelle hat Textmarke 'XTabelle'
            Set wdRange = wdDoc.Range(wdDoc.Bookmarks("XTabelle").Start, _
                wdDoc.Bookmarks("XTabelle").End)
            For j = 1 To anzZ - 1
                wdRange.Rows.Add  ' Zeilen anfügen
            Next j

[Micharius]

Ha super, nun funzt es! Ganz herzlichen Dank für die schnelle Hilfe!