Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Pastespecial Problem

Forumthread: Pastespecial Problem

Pastespecial Problem
26.07.2021 10: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 11: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 11:13:07
Genetix
Hallo Regina, so funktioniert es! Ich danke dir!
Werde versuchen, den gesamten Code so umzuschreiben, ohne das select.
Kann geschlossen werden.
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18