Schreiben mittels Range in 2.Arbeitsmappe
22.12.2014 14:12:48
Imhoff
ich habe ein Problem. Ich generiere eine Matrix. Diese möchte ich auf "einen Rutsch" in ein Excelsheet schreiben.
So in der Art:
Range(Cells(2, 1), Cells(153, 20)) = matrixDb
das funktioniert auch hervorragend.
Jetzt möchte ich auf die gleiche art in ein Sheet einer anderen Arbeitsmappe schreiben. Habe es so probiert:
Set wbDb = GetObject(wbThis.Worksheets("allgemeine Konfiguration").Range("B3").Value)
Set wsDb = wbDb.Worksheets("MatchingTable"
wsDb.Range(Cells(2, 1), Cells(153, 20)) = matrixDb
Wenn ich das so ausführe, kriege ich einen Fehler 1004.
Kann mir jemand dabei helfen?
Vielen Dank im Vorraus!
Brev
Anzeige