Office 2016 Laufzeitfehler 1004 "Schnittstelle nicht registriert"

[StefKe]

Hallo Gemeinde, habe leider keine Ahnung wie obige Fehlermeldung zu umgehen ist. Benötigt wird ein relativer Zellbezug in einer externen Arbeitsmappe.

Code: [Auswählen]

    Set appExtern = New Excel.Application      'Neue Excel Instanz eröffnen
        appExtern.Visible = True               'Excel bleibt unsichtbar wenn Wert = False ist
        appExtern.Workbooks.Open strZielPfad   'Zieldatei öffnen
        Set wksZiel = appExtern.Worksheets(strBlattname)
        lngZeile = wksZiel.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        lngSpalte = wksZiel.Cells.SpecialCells(xlCellTypeLastCell).Column
        lngArZeilen = UBound(varDaten, 2)
        wksZiel.Range("D3:J8") = varDaten                       'alle Werte werden richtig übertragen
        wksZiel.Range(Cells(3, 4), Cells(8, 10)) = varDaten     'Laufzeitfehler 1004 "Schnittstelle nicht registriert"
        wksZiel.Range(Cells(lngZeile, 4), Cells(lngZeile + _
        lngArZeilen, lngSpalte)) = varDaten                     'Laufzeitfehler 1004 "Schnittstelle nicht registriert"
        varDaten = ""
        Stop
        appExtern.Workbooks(strBlattname & ".xlsx").Close Savechanges:=True
        appExtern.Quit
Hat wer einen Lösungsvorschlag?
Danke

[maninweb]

Hallo,

aus welchem Grund erzeugst Du eine neue Instanz von Excel?
Warum nicht direkt Set wkbTest = Application.Workbooks.Open ...

Gruß

[StefKe]

aus welchem Grund erzeugst Du eine neue Instanz von Excel?
Warum nicht direkt Set wkbTest = Application.Workbooks.Open ...

weil ich einer von den bin die Google bemühen wenn's nicht mehr weitergeht . In 90% aller Fälle geht's gut..aber diesmal eben nicht.
Dein Ansatz passt perfekt, keine Fehlermeldung mehr!

Danke