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
Call objWorbook.Worksheets(blatt).Range("A201:V202").PasteSpecial
und so
Call objWorbook.Worksheets(blatt).Range("A201:V202").PasteSpecial xlValues
Funktioniert überhaupt nicht.
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))
Call objWorbook.Worksheets(blatt).Range("A201:V202").PasteSpecial
Call objWorbook.Close(SaveChanges:=False)
Set objWorbook = Nothing
|