8
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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 312471
Url: https://administrator.de/forum/vba-pastespecial-312471.html
Ausgedruckt am: 26.12.2024 um 06:12 Uhr
8 Kommentare
Neuester Kommentar
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
Hi Uwe
Danke fürDdeine schnelle Antwort.
Ich erhalte folgende Fehlermeldung:
"Für diese Aktion müssen alle verbundenen Zellen dieselbe Grösse haben"
Debugg Markiert:
"Worksheets("Summary").Range("A3:C3").PasteSpecial Paste:=xlValues"
Hast du auch eine lösung für dies?
Beste Grüsse
Dan
Danke fürDdeine schnelle Antwort.
Ich erhalte folgende Fehlermeldung:
"Für diese Aktion müssen alle verbundenen Zellen dieselbe Grösse haben"
Debugg Markiert:
"Worksheets("Summary").Range("A3:C3").PasteSpecial Paste:=xlValues"
Hast du auch eine lösung für dies?
Beste Grüsse
Dan
Klar der Zielrange stimmt hier natürlich nicht...
Worksheets("Summary").Range("A3").PasteSpecial Paste:=xlValues
Ja das ist die Halbe Lösung 
Wenn ich den Range auf A3 setze und die verbundenen Zellen auf dem Worksheet "Summary" auflöse. Funktioniert es
Jedoch bin ich damit am Ziel vorbei, denn das Summary Sheet ist obtisch aufbereitet und ich möchte da die gewünschten Werte eintragen,
durch das aufheben der verbundenen Zellen passt das nicht.
Gruss
Dan
Wenn ich den Range auf A3 setze und die verbundenen Zellen auf dem Worksheet "Summary" auflöse. Funktioniert es
Jedoch bin ich damit am Ziel vorbei, denn das Summary Sheet ist obtisch aufbereitet und ich möchte da die gewünschten Werte eintragen,
durch das aufheben der verbundenen Zellen passt das nicht.
Gruss
Dan
Das hier Verbundene Zellen mit im Spiel sind kann ich natürlich nicht wissen 
, In dem Fall reicht ein:
Aber hier würde ja dann doch auch eine einfache Formel reichen
, In dem Fall reicht ein:Worksheets("Summary").Range("A3").Value = Worksheets("Overview Tabelle").Range("L2").Value 
1
[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]
Vielen Dank Uwe!
Das ist die Lösung
Beste Grüsse
Dan
Das ist die Lösung
Beste Grüsse
Dan
