WsO.Range(
"B:C,E:F,H:H,L:L,Q:Q,S:S"
).Copy
WsQ.Range(
"B2"
).PasteSpecial Paste:=xlPasteValues
<span style=
"font-family: Arial, Verdana, sans-serif;"
>
hier kommt die Fehlermeldung, dass die PasteSpecial-Methode nicht ausgeführt werden kann.
der Alternative Code klappt auch nicht
WsO.Range(
"B:C,E:F,H:H,L:L,Q:Q,S:S"
).Copy Destination:=WsQ.Range(
"B2"
)</span>