Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PasteSpecial in VBA

Forumthread: PasteSpecial in VBA

PasteSpecial in VBA
29.09.2004 09:17:48
Ferda
Hallo!
kann mir jemand sagen, wie ich eine PasteSpecial in VBA verwenden kann? Ich möchte Werte und Zahlenformate (Values and Numberformats) einfügen, aber ich konnte nicht finden, wie ich das definieren kann.
Worksheets("KV_Prognose").Cells(i, 8).Copy
Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial......?
Es wäre nett, wenn mir jemand weiter helfen könnte.
Ferda
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PasteSpecial in VBA
Dr.
Steht eindeutig in der VBA-Hilfe beschrieben!
AW: PasteSpecial in VBA
29.09.2004 09:25:47
ferda
danke, natürlich weiss ich aber ich konnte nicht finden wie ich das schreiben soll. alle was ich geschrieben habe nicht funktioniert.
Worksheets("KV_Prognose").Cells(i, 8).Copy
Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial _
Type:=PasteValuesAndNumberFormats
ODER
Worksheets("KV_Prognose").Cells(i, 8).Copy
Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial _
Operation:=xlPasteValuesAndNumberFormats
ODER
Worksheets("KV_Prognose").Cells(i, 8).Copy
Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial (PasteValuesAndNumberFormats)
ich brauche weitere Hilfe!
Ferda
Anzeige
AW: PasteSpecial in VBA
Ingo
With Worksheets("Gesamt Prognose").Cells(k, 5)
.PasteSpecial (PasteValues)
.PasteSpecial (PasteFormats)
End with
mfG
Ingo Christiansen
AW: PasteSpecial in VBA
29.09.2004 10:14:11
ferda
danke schön!
das funktioniert aber wenn so geschrieben sind:
With Worksheets("Gesamt Prognose").Cells(k, 5)
.PasteSpecial (xlPasteValues)
.PasteSpecial (xlPasteFormats)
End with
MfG
Ferda
Anzeige
;

Forumthreads zu verwandten Themen

VBA - paste special
Doro

Hallo Zusammen,
weiß jemand, ob es eine Möglichkeit gibt, per VBA in EINEM Schritt Inhalte und Formate einzufügen? Also statt
...
Formelbereich.Copy
.Cells(Zielzeile, Zielspalte).PasteSpecial Paste:=xlPasteValues
.Cells(Zielzeile, Zielspalte).PasteSpecial Paste:=xlPasteFor...
10.12.2009 12:16:11
Thread-ID: 1122882
3 Beiträge
Copy Paste abfangen und zu Paste Special umwandeln
Fettertiger

Hallo zusammen,
ich ärgere mich immer wieder darüber, dass mir in diversen Tools die User immer wieder die Formate von bestimmten Zellen zerschiessen, oder Referenzen zu Ihren eigenen Tabellen einfügen, weil sie Daten von dort einfach mit Copy-Paste kopieren.
Eine theoretisch einfache L...
11.06.2010 10:28:03
Thread-ID: 1161260
5 Beiträge
Anzeige
PasteSpecial ,Code verbessern
frank

Hallo
Habe ein Makro das ich verbessern möchte.
Es kommt 2 mal PasteSpecial vor. Einmal um mehrere Zeilen einzufügen und einmal um eine Formel in Wert zu änderrn. In der Zelle steht das aktuelle Datum =heute(). Die Zelle befindet sich in den zu kopierenen Zeilen.
Geht das nicht in e...
12.01.2011 21:05:06
Thread-ID: 1195312
3 Beiträge
VBA - PasteSpecial Fehler
Klaus

Hallo Leute,
ich habe ein Problem beim Kopieren und einfügen (als Werte) mittels Access.
Bisher lautet der Code folgendermaßen: ' Erstellt von XXXXX ChDir "C:\Temp" Workbooks.OpenText Filename:= _ "C:\Temp\test.txt", _ Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifie...
03.05.2011 08:28:22
Thread-ID: 1212743
8 Beiträge
Probleme mit PasteSpecial in VBA 2010 -VBA 2003 ok
Florian

Hallo liebe Excelfreunde,
habe ein Problem mit Pastespecial in Excel 2010. Wenn die gleiche Makro in Excel 2003 aufgerufen wird läuft alles ohne Probleme durch, in 2010 kommt die Fehlermeldung "PasteSpecial Method of Range class failed" - Error type 1004.
Bei der Makro handelt es sich d...
22.05.2013 10:55:26
Thread-ID: 1314251
6 Beiträge
Range - Copy Destination & PasteSpecial
Thomas

Hallo Erich & Bastian!
Vielen Dank für Eure Hilfe, leider war der Thread schon geschlossen (von mir?) und ich konnte nicht mehr auf Antworten...
Jedenfalls hat die Variante von Erich bestens funkioniert und ich werde sie auch verwenden, die von Dir Bastian leider nicht - zumindest i...
07.10.2013 22:21:30
Thread-ID: 1333486
4 Beiträge
Anzeige
VBA select then copy then paste
Paul

Hallo Leute,
ich hoffe Ihr könnt mir helfen. Ich möchte aus Tabelle 1 zunächst Spalte M nach dem Wert/Wort "Germany" durchsuchen, anschließend aus der Spalte AF den korrespondierenden Wert in Tabelle 2 Spalte F einfügen. Das ganze sollte möglichst über ein Command Button in Tabelle 2 laufe...
27.12.2013 18:35:00
Thread-ID: 1343585
7 Beiträge
Anzeige
VBA: Dynamisches Copy-Pasten mittels Identifier
Hamiltonian

Hallo liebe Forengemeinde,
nachdem ich schon eine halbe Ewigkeit fleißig mitlese und mir die ein oder andere Antwort wie auch Tutorials über schwere Excelzeiten hinweg geholfen haben, muss ich mich jetzt doch mit einem eigenen Thread mal an euch wenden.
Vorab: Ich konnte in der Suche ni...
22.04.2014 20:00:18
Thread-ID: 1358213
4 Beiträge
VBA PasteSpecial - Titel verschiebt sich
Marcus

Hallo Zusammen!
Ich möchte Diagramme einer Excel-Datei per Makro in eine vorgefertigte PPT-Präsentation als Metadatei einfügen. Funktioniert soweit auch alles ganz gut, nur ein Problem bekomm ich einfach nich in den Griff. Es verschiebt sich der Titel der Folie, bzw. das Textfeld vergrößert...
19.08.2014 14:02:28
Thread-ID: 1377224
6 Beiträge
VBA Copy/Paste Spalten in andere Datei
Sio
Hallo, lerne gerade VBA und bastel gerade an folgendem Makro:
Ziel des Makros:
-Spalten A:C kopieren
- Datei auswählen wohin es kopiert werden soll
- Einfügen in ein spezielles Worksheet dieser Datei
- Refresh der Datei
- schließen der Datei woraus es kopiert wurde
Das...
23.08.2014 11:23:10
Thread-ID: 1377842
6 Beiträge
VBA blockiert copy and paste
MRInterNETT

Hallo Zusammen,
ich habe eine Datei mit mehreren Tabellenblättern. Da ich im Startblatt keine Scrollbalken wollte, habe ich in "dieseArbeitsmappe" Displayscrollbar auf false gesetzt und in jedem einzelnen Tabellenblatt wieder auf true. Wenn vbacode für die einzelnen Tabellenblätter eingegeb...
09.09.2014 21:16:12
Thread-ID: 1380754
2 Beiträge
Anzeige
VBA Copy/Paste über ext. Datei und Auswahlliste
Thomas

Guten Abend.
Ich bin wieder total gerädert.
Seit Stunden sitzte ich an folgendem Problem:
ich möchte aus einer Listbox (die über einen Button geöffnet wird) auf eine ausgewählte (externe und bereits geöffnete) Datei zugreifen, und dann von der ausgewählten Datei in einem Tabellenbla...
29.10.2014 22:55:27
Thread-ID: 1389492
4 Beiträge
Anzeige

Infobox / Tutorial

PasteSpecial in VBA: So verwendest du es richtig

Schritt-für-Schritt-Anleitung

  1. Zelle kopieren: Du kannst eine Zelle oder einen Zellbereich in einem Worksheet kopieren. Beispiel:

    Worksheets("KV_Prognose").Cells(i, 8).Copy

  2. PasteSpecial verwenden: Um die kopierten Werte und Formate in eine andere Zelle einzufügen, verwende die PasteSpecial-Methode:

    Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

  3. Verwendung von With: Eine elegante Möglichkeit, mehrere PasteSpecial-Befehle auszuführen:

    With Worksheets("Gesamt Prognose").Cells(k, 5)
   .PasteSpecial Paste:=xlPasteValues
   .PasteSpecial Paste:=xlPasteFormats
End With

Häufige Fehler und Lösungen

  • Fehler: PasteSpecial funktioniert nicht

    • Überprüfe, ob die Zelle, in die du einfügen möchtest, bereits eine Auswahl hat. Vergewissere dich, dass die Zielzelle korrekt angegeben ist.

  • Fehler: Ungültiger Parameter

    • Stelle sicher, dass du die richtigen Parameter verwendest. Beispielsweise: 
      Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial Paste:=xlPasteValues

Alternative Methoden

  • Zellen direkt zuweisen: Anstatt PasteSpecial zu verwenden, kannst du die Werte und Formate direkt zuweisen:

    Worksheets("Gesamt Prognose").Cells(k, 5).Value = Worksheets("KV_Prognose").Cells(i, 8).Value
Worksheets("Gesamt Prognose").Cells(k, 5).NumberFormat = Worksheets("KV_Prognose").Cells(i, 8).NumberFormat

  • Verwendung von Range: Wenn du mit einem Bereich arbeitest, kannst du auch Folgendes verwenden:

    Worksheets("KV_Prognose").Range("A1:B2").Copy
Worksheets("Gesamt Prognose").Range("C1").PasteSpecial Paste:=xlPasteAll

Praktische Beispiele

  • Einfügen von Werten und Formaten: Um Werte und Formate aus einer Zelle in eine andere zu kopieren, benutze:

    Worksheets("KV_Prognose").Cells(i, 8).Copy
Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

  • Kopieren und Einfügen in einer Schleife: Wenn du mehrere Zellen in einer Schleife kopieren musst:

    For i = 1 To 10
   Worksheets("KV_Prognose").Cells(i, 8).Copy
   Worksheets("Gesamt Prognose").Cells(i, 5).PasteSpecial Paste:=xlPasteValues
Next i

Tipps für Profis

  • Verwende Application.CutCopyMode = False: Nach dem Einfügen kannst du den Kopiermodus deaktivieren, um das Blinken der Auswahl zu verhindern:

    Application.CutCopyMode = False

  • Fehlerbehandlung: Implementiere Fehlerbehandlung, um sicherzustellen, dass dein Code auch bei Problemen stabil bleibt:

    On Error Resume Next
' Dein Code hier
On Error GoTo 0

FAQ: Häufige Fragen

1. Wie kann ich nur die Werte ohne Formate einfügen? Du kannst die PasteSpecial-Methode mit xlPasteValues verwenden:

Worksheets("Gesamt Prognose").Cells(k, 5).PasteSpecial Paste:=xlPasteValues

2. Gibt es eine Möglichkeit, mehrere Formate gleichzeitig einzufügen? Ja, du kannst mehrere PasteSpecial-Befehle in einem With-Block kombinieren:

With Worksheets("Gesamt Prognose").Cells(k, 5)
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteFormats
End With

3. Was ist der Unterschied zwischen xlPasteValues und xlPasteValuesAndNumberFormats? xlPasteValues fügt nur die Werte ein, während xlPasteValuesAndNumberFormats sowohl die Werte als auch die Nummernformate einfügt.

4. Wie kann ich PasteSpecial in einer Excel-Makro einfügen? Du kannst die oben genannten Beispiele in einem VBA-Modul einfügen und das Makro über die Excel-Oberfläche ausführen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige