Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: StefKe am Februar 13, 2017, 21:33:18 Nachmittag
-
Hallo Gemeinde, habe leider keine Ahnung wie obige Fehlermeldung zu umgehen ist. Benötigt wird ein relativer Zellbezug in einer externen Arbeitsmappe.
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
-
Hallo,
aus welchem Grund erzeugst Du eine neue Instanz von Excel?
Warum nicht direkt Set wkbTest = Application.Workbooks.Open ...
Gruß
-
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 ;D . In 90% aller Fälle geht's gut..aber diesmal eben nicht.
Dein Ansatz passt perfekt, keine Fehlermeldung mehr!
Danke