Sorry für die späte Reaktion.
Danke, der Hinweis half mir, kam auf eine Ähnliche Lösung
nach Update von "$adrINDX" Adresse des Bereiches "HTML_ndx"
Code
_Excel_RangeCopyPaste($oHTML, _ ; Tabelle "HTML"
StringLeft($adrINDX,stringinstr($adrINDX,":")-1), _ ; 1. Zelle von Bereich "HTML_ndx"
$adrINDX, _ ; neuer Bereich "HTML_ndx"
Default, _ ;
$xlPasteFormulas) ; Formeln kopieren
if @error <> 0 Then ERR(802, "Bereich HTML_ndx update Fehler:" & @error & "[" & @extended & "]")