Erneut Paste Special
27.03.2019 11:42:08
Christian
vor einigen Monaten habe ich glaube ich schon mal wegen dem Thema hier einen Beitrag geschrieben.. irgendwie verstehe ich wohl immer noch nicht wie ich Formeln als Werte einfügen kann. Hier mal ein Auszug aus meinem Code. Nach der Calculation möchte ich diese als Werte einfügen, bekomme jedoch die Meldung "Die PasteSpecial-Methode des Range-Objekts konnte nicht ausgeführt werden". Daher habe ich jetzt den Befehl Column verwendet, aber die Meldung bleibt gleich. Wo liegt mein Fehler?
Beste Grüße und vielen Dank für eure Hilfe
Christian
End With
With wsMSPT
.Range("D3").Formula = "=IFERROR(VLOOKUP(B3,Shipset!L:S,8,FALSE),"""")" 'WO
.Range("D3:D" & lngLZeile).FillDown
.Range("E3").Formula = "=IFERROR(VLOOKUP(B3,Shipset!L:T,9,FALSE),"""")" 'WO
.Range("E3:E" & lngLZeile).FillDown
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
wsMSPT.Columns("D:E").PasteSpecial Paste:=xlPasteValues