Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PasteSpecial xlPasteValues

PasteSpecial xlPasteValues
01.11.2006 11:06:16
Christian
Hallo,
ich möchte Daten die ich in einer anderen Tabelle via Autofilter selektiert habe kopieren und dann via "Inhalte einfügen/Werte" in ein anderes Tabellenblatt einfügen.
Laut meiner VBA-Bibel ist das die Funktion PasteSpecial xlPasteValues, leider funktioniert das bei mir aber trotz mehrmaligen Versuchen nicht. Anbei mal der Quellcode, vielleicht erkennt jemand von euch den Fehler auf Anhieb:

Private Sub Beratung_Click()
Sheets("Januar A.R.").Rows("1:1").Autofilter _
Field:=3, Criteria1:="Beratung", _
Field:=21, Criteria1:="Firma ABC"
Rows("2:55").Copy
Worksheets("Übersicht").Range("A7").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Wäre froh wenn mir jemand weiterhelfen kann, gruss
Christian

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

Betreff
Datum
Anwender
Anzeige
AW: PasteSpecial xlPasteValues
01.11.2006 12:24:02
Daniel
Hallo
bist du sicher das der Fehler beim PasteSpecial liegt?
Da kann ich aber keinen Fehler erkennen.
In welcher Zeile bricht das Makro denn ab?
so spontan fallen mir 2 Feheler auf:
- in der Zeile "Rows().copy" ist kein Sheet angegeben. Damit wird immer das gerade aktive Sheet kopiert.
beim Setzen des Autofilter hast du dagegen das Sheet angegeben, also ist davon auszugehen, das es nicht das gerade aktive ist und somit kopiertst du die Daten vermutlich aus einem falschen Sheet (das muß nicht so sein, aber die Gefahr besteht)
- gib beim Setzten des Autofilters nicht einen ganzen Zellbereich an, sondern nur eine einzelne Zelle, die innerhalb der zu filternden Tabelle liegt. Excel findet die passende Tabelle dann automatisch. Wenn du einen vollständigen Zellbereich vorgibst, kann es zu problemen kommen, da Excel dann versucht, den Autofilter nur auf diesen Zellbereich anzuwenden und das hat bei mir zumindest zu einem Programmabbruch geführt.
Mit "Sheets().Cells(1,1).Autofilter..." gings einwandfrei
Gruß, Daniel
Anzeige
AW: PasteSpecial xlPasteValues
01.11.2006 16:19:47
Christian
Hallo Daniel,
danke für den Tipp, habe den Code nun folgendermassen geändert:

Private Sub Beratung_Click()
Sheets("Januar A.R.").Range("1:1").Autofilter _
Field:=3, Criteria1:="Beratung", _
Field:=21, Criteria1:="Rhenus AG & Co. KG"
Worksheets("Januar A.R.").Rows("2:55").Copy
Worksheets("Übersicht").Range("A7").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Problem: Exel selektiert und kopiert mir die Daten zwar aber fügt sie nicht ins Worksheet "Übersicht".
gruss
AW: PasteSpecial xlPasteValues
01.11.2006 23:07:40
Daniel
Hallo,
du hast meinen 2. Punkt nicht beachtet, du solltest beim Einrichten des Autofilters nur eine einzelne Zelle selectiern und nicht die Ganze Zeile.
Das ist der Punkt, der bei mir die Probleme verursacht.
also "...Cells(1,1).Autofilter..."
mit Range("1:1") hast du wieder die ganze Zeile selektiert.
Im Cut/Copy - Bereich ist meiner Ansicht nach kein Fehler.
Vorausgesetzt, deine Datentabelle reicht nicht weiter als bis zur Zeile 55.
Wenn nach Zeile 55 noch Daten stehen, werden diese natürlich nicht kopiert.
Gruß, Daniel
Anzeige
AW: PasteSpecial xlPasteValues
02.11.2006 09:06:48
Christian
Hoi Daniel,
danke hat sich erledigt...es klappt.
Danke und gruss,
christian

72 Forumthreads zu ähnlichen Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
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
ribbons ausschalten, copy and paste verhindern
manfred

Mit
enable control 21, false 'cut
enable control 19, false 'copy
enable control 22, false 'pste
enabel control 755, flase 'paste special
konnte ich bislang cut, copy und paste in der Menueleiste abschalten
mit
commandbars ("ToolBar List").enabled = false
das...
23.08.2010 10:57:26
Thread-ID: 1173683
2 Beiträge
Anzeige
copy and paste
ptonka

Hallo zusammen,
ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind....
15.04.2011 16:44:11
Thread-ID: 1210638
8 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
zeilen: Copy and Paste mit Dialog
Andi

Hallo,
vielleicht kann mir jemand bitte bei folgendem Problem helfen ... Tipps geben:
Ich möchte in einem Berichtsblatt vier zeilen kopieren und der User soll via Dialog entscheiden, wo diese hinkopiert werden sollen.
Das Blatt hat viele aufeinanderfolgende Bereichtszeilen (immer 4...
01.11.2013 12:33:26
Thread-ID: 1336794
9 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
2
4
1
6
7
7
5
3
8
6
3
1
5
5
1
3
2
2
4
1
6
7
1
1