Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.11.2025 21:11:38
01.11.2025 14:22:20
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pastespecial Problem

Forumthread: Pastespecial Problem

Pastespecial Problem
26.07.2021 08:42:31
Genetix
So, ich nochmal. Nach dem doch sehr unangenehmen Start hier im Forum dachte ich mir, ich such mir direkt das nächste Problem wo ich nicht weiter komme... :D
Ich bekomme beim Pastespecial ständig den Laufzeitfehler 1004. Das normale Paste funktioniert, da nimmt er dann aber ja die Formel und nicht den Wert der Zelle.
Hier ist der Code:

Sub KopiereDaten()
Sheets("Raw_Data").Select
Range("B4").Select
Selection.Copy
Sheets("Utilities & Consumables").Select
Range("K33").Select
ActiveSheet.Paste
Sheets("Economic and CO2 Emission Data").Select
Application.ScreenUpdating = False
Call table_CF_base
Call table_CF_capt
Call table_CF_transp
Range("N32").Select
Selection.Copy
Sheets("Comparison").Select
Range("B4").Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Vielleicht kann mir ja jemand dabei weiterhelfen. Und zeigt bitte etwas Nachsicht, ich arbeite mich gerade selbst in das Thema rein. Danke euch!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pastespecial Problem
26.07.2021 09:08:45
ReginaR
Hi,
Paste kann mit einem Worksheet-Objekt verwendet werden (ActiveSheet), PasteSpecial muss mit einem Range-Objekt verwendet werden, also so:

Sheets("Comparison").Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Insgesamt solltest Du Dir das Select abgewöhnen, ist in der Regel nicht nötig.
Gruß Regina
Anzeige
AW: Pastespecial Problem
26.07.2021 09:13:07
Genetix
Hallo Regina, so funktioniert es! Ich danke dir!
Werde versuchen, den gesamten Code so umzuschreiben, ohne das select.
Kann geschlossen werden.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige