VBA . PasteSpecial
Hallo VBA Sezialisten,
In sache VBA bin ich noch ein Anfänger und ich versuche aus eine Excel Sheet Inhalte in ein zweites Sheet zu kopieren (soweit klapt es noch) jedoch möchte ich nur den Wert und nicht die Formatierung und nicht die Formel. Da fängt die schwirigkeit an.
Laut Anleitungen aus Foren müsste es so funktionieren:
Worksheets("Overview Tabelle").Range("L2").Copy _
Destination:=Worksheets("Summary").Range("A3:C3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Worksheets("Overview Tabelle").Range("B2").Copy _
Destination:=Worksheets("Summary").Range("D3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Jedoch erhalte ich folgende Fehlermeldung:
Fehler beim Kompilieren "Syntaxfehler"
Markiert "Paste" bei :=xlValues " Erwartet:Anweisungsende
Kann mir jemand helfen und sagen wie es richtig sein muss?
Danke schon mal im Vorraus!
Gruss
Actares
In sache VBA bin ich noch ein Anfänger und ich versuche aus eine Excel Sheet Inhalte in ein zweites Sheet zu kopieren (soweit klapt es noch) jedoch möchte ich nur den Wert und nicht die Formatierung und nicht die Formel. Da fängt die schwirigkeit an.
Laut Anleitungen aus Foren müsste es so funktionieren:
Worksheets("Overview Tabelle").Range("L2").Copy _
Destination:=Worksheets("Summary").Range("A3:C3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Worksheets("Overview Tabelle").Range("B2").Copy _
Destination:=Worksheets("Summary").Range("D3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Jedoch erhalte ich folgende Fehlermeldung:
Fehler beim Kompilieren "Syntaxfehler"
Markiert "Paste" bei :=xlValues " Erwartet:Anweisungsende
Kann mir jemand helfen und sagen wie es richtig sein muss?
Danke schon mal im Vorraus!
Gruss
Actares
Please also mark the comments that contributed to the solution of the article
Content-Key: 312471
Url: https://administrator.de/contentid/312471
Printed on: April 27, 2024 at 16:04 o'clock
8 Comments
Latest comment
Hallo Actares,
du hast da was doppelt gemoppelt was so nicht geht. Du musst hier in zwei Schritten erst kopieren und dann im Range per "PasteSpecial" einfügen:
Grüße Uwe
du hast da was doppelt gemoppelt was so nicht geht. Du musst hier in zwei Schritten erst kopieren und dann im Range per "PasteSpecial" einfügen:
Worksheets("Overview Tabelle").Range("L2").Copy
Worksheets("Summary").Range("A3:C3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
[OT]
Obtisch und agustisch?
Ich kann auch ein paar Brocken säggsisch..
Grüße
Biber
[/OT]
Obtisch und agustisch?
Ich kann auch ein paar Brocken säggsisch..
Grüße
Biber
[/OT]