Hy ich versuche gerade werte zu kopieren bekomme aber immer fehlermeldung beim PasteSpecial Fehlermeldung:Erwartet Anweisungsende
woran liegt der fehler?
Wenn ich so schreibe werden die Werte kopiert mit fehlermeldung und das Script bricht ab
<em>
Call
objWorbook.Worksheets(blatt).Range(
"A201:V202"
).PasteSpecial
und so
<em>
Call
objWorbook.Worksheets(blatt).Range(
"A201:V202"
).PasteSpecial xlValues
Funktioniert überhaupt nicht.</em></em>
Set
objWorbook = Workbooks.Open(Filename:= _
ROOT_FOLDER & ComboBox1.Text, UpdateLinks:=0,
ReadOnly
:=
True
)
Call
objWorbook.Worksheets(blatt).Range(
"A201:V202"
).Copy( _
Destination:=ThisWorkbook.Worksheets(1).Cells(4 + i, 1))
<em>
Call
objWorbook.Worksheets(blatt).Range(
"A201:V202"
).PasteSpecial</em>
Call
objWorbook.Close(SaveChanges:=
False
)
Set
objWorbook =
Nothing