Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Selection.PasteSpecial Problem erzeugt fehler

Selection.PasteSpecial Problem erzeugt fehler
31.10.2005 21:26:05
Simon
Hallo zusammen,
Hab en Problem, das bisher eigentlichimmer funktioniert hat, nur auf einmal kommt da ne Fehler meldung.
Kopiere aus der Excel Datei "A" eine Zeile von Spalte F bis Ü und füge sie dann in der Datei "B" mit folgendem Code wieder ein und genau hier tritt dann der Fehler auf,
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
da ich nur die Werte möchte benötige ich die PasteSpecial.
Das einfügen mit diesem Code hat auch schon öfters geklappt.
Muss man irgendwas bestimmtes Beachten bei der PasteSpecial?
oder gibt es sonst noch ne einfache möglichkeit so etwas zu machen?
besten dank schon mal für die hilfe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Selection.PasteSpecial Problem erzeugt fehler
31.10.2005 23:09:04
Erich
Hallo Simon,
zwei Rückfragen, die vermutlich zusammenhängen:
Was ist die "Selection" vor dem PasteSpecial?
Wie lautet die Fehlermeldung? (Mit "kommt da ne Fehlermeldung" bist du ziemlich sparsam mit Infos, die es erleichtern würden, dir zu helfen...)
Falls mehr als eine Zelle selektiert ist und die "Maße" des Bereichs nicht mit denen des kopierten Bereichs übereinstimmen, gibts einen Fehler. Am einfachsten wäre, nur die Startzelle für das Einfügen anzugeben, also z. B. anstelle von 

Range("C3:F7").Select
Selection.PasteSpecial ...

zu schreiben: 

Range("C3").PasteSpecial ...

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Selection.PasteSpecial Problem erzeugt fehler
01.11.2005 12:53:53
Simon
hallo erich,
muss mich entschuldigen das ich mich erst jetzt melde.
Danke für deinen Tip, hab meinen code geändert wie folgt
Sheets("korrektur").Range("B" & zähler + 1).PasteSpecial Paste:=xlPasteValues
und genau in der Code Zeile wird das makro abgebrochen, es kommt keine Fehlermeldung, der Code wird "nur Gelb gemacht"
hast du noch ne Idee warum das Makro abbricht?
AW: Selection.PasteSpecial Problem erzeugt fehler
01.11.2005 13:55:16
Erich
Hallo Simon,
PasteSpecial kann man nur auf dem aktiven Blatt ausführen. Du musst also das Zielblatt vor dem Einfügen aktivieren: 

Sheets("korrektur").activate ' (oder .select)
Range("B" & zähler + 1).PasteSpecial Paste:=xlPasteValues
' evtl. wieder das vorige Sheet aktivieren

Wenn das dadurch entstehende Geflacker stört, kannst du vorher
Application.screenupdating=false
und nachher
Application.screenupdating=true
schreiben.
Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Selection.PasteSpecial Problem erzeugt fehler
01.11.2005 16:25:28
simon
hallo Erich
(das ist normalerweise nicht meine Art mir mit den Antworten so lange Zeit zu lassen, muss aber ständig wieder vom PC weg)
Schicke jetzt mal den ganzen code des Kopiervorgangs
AppExcel.Sheets("artikelstamm").Range(Cells(aktuellezeile + 8, 7), Cells(aktuellezeile + 8, 44)).Select
Selection.Copy
Windows(aktMap).Activate
zähler = Sheets("Korrektur").Range("e111").End(xlUp).Row
Sheets("korrektur").Activate
Range("B" & zähler + 1).PasteSpecial Paste:=xlPasteValues
Jetzt kommt immer noch der Fehler PasteSpecial Methode kann nicht ausgeführt werden,
und das makro hält wieder in der Zeile,
an was könnte es noch liegen ich hoffe du hast noch ne Idee
Anzeige
AW: Selection.PasteSpecial Problem erzeugt fehler
01.11.2005 20:57:50
Erich
Hallo Simon,
wo der Fehler liegt, habe ich jetzt nicht gesehen. Bei mir geht es so:

Sub tst()
Dim zähler&, aktZe&, aktMap$, AppExcel As Workbook
' ---------- meine Vorbelegungen zum Testen:
aktMap = "Mappe2"
Set AppExcel = Workbooks("Mappe1")
aktZe = 1
AppExcel.Activate   ' unnötig, wenn AppExcel die aktive Mappe ist
Range(Sheets("artikelstamm").Cells(aktZe + 8, 7), _
Sheets("artikelstamm").Cells(aktZe + 8, 44)).Copy
'oder, wenn "artikelstamm" aktives Blatt ist:
'  Range(Cells(aktZe + 8, 7), Cells(aktZe + 8, 44)).Copy
Workbooks(aktMap).Activate
'  Windows(aktMap).Activate ' funzt auch
'  zähler = Sheets("Korrektur").Range("e111").End(xlUp).Row ' funzt auch
Sheets("Korrektur").Activate
zähler = Range("e111").End(xlUp).Row
Range("B" & zähler + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

11 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
Paste special - Werte multiplizieren per VBA
Bernhard
Hallo zusammen,
bei der Auswertung von Monatsdaten muss ich oft mit dem 1000er Faktor hin- und herrechnen. Über Inhalte Einfügen - Werte multiplizieren funktioniert das ja auch ganz gut, ich muss halt vorher immer irgendwo die 1000 hinschreiben und kopieren. D
as kann man doch bestimmt auch...
02.02.2004 11:19:17
Thread-ID: 374902
2 Beiträge
"Special Paste" einfügen in VBA Code
andi

Hallo zusammen !!
Wie kann ich folgendes makro in ein makro mit WITH Funktion än´dern ?
Range("B53:I65").Select
Selection.Copy
Range("B67").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
29.07.2004 12:23:45
Thread-ID: 462199
2 Beiträge
Selection.PasteSpecial
Blue-J

Hallo Spezies,
habe ein Problem mit folgendem code:
Sub xyz() Set Ber_WNr = Worksheets("A").Range("AV14:AV64") zelle = "BO7" Call Kopieren(Ber_WNr, zelle) End Sub
Sub Kopieren(bereich, zelle) bereich.Copy ' Kopieren eines Zellbereiches Worksheets("ERG").Activat...
11.12.2006 18:30:17
Thread-ID: 828346
4 Beiträge
VBA immer special Paste
MISTERWENN

Hallo,
Bei uns im Unternehmen nutzen wir ein Excel File, welches ausgefüllt und an eine Abteilung gesandt werden soll.
Allerdings wird fast schon Grundsätzlich und mit Vorsatz, diese Vorlage durch Formatierungen so verunstaltet, dass dann sogar oftmals meine Makros nicht mehr greifen un...
03.12.2019 10:53:14
Thread-ID: 1726883
13 Beiträge
VBA - PasteSpecial und selektierte Spalt
Phillip

Hallo liebes Forum,
ich habe eine wahrscheinlich sehr einfache Frage.
Folgenden Code habe ich bereits zusammengesucht und dieser funktioniert auch soweit:
Private Sub CommandButton1_Click() Dim ende As Long Dim zelle As Range If IsError(Evaluate("Tabelle1!A1")) Then Worksheets.Add...
10.02.2021 11:36:27
Thread-ID: 1812111
4 Beiträge
Anzeige

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
2
4
7
5
5
1
1
3
12
3
18