Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Laufzeitfehler 1004 - Problem beim Kopieren eines Tabellenbereichs in ein anderes Worksheet

1,211 views
Skip to first unread message

Peter

unread,
Jan 7, 2003, 4:27:04 PM1/7/03
to
Hallo Excel-Spezialisten:

Wenn ich versuche einen Tabellenbereich (nur die Werte und die Formatierung,
nicht aber die Formeln) in ein anderes Worksheet zu kopieren bekomme ich
folgenden Fehler:

Laufzeitfehler 1004 Die PasteSpecial-Methode des Range-Objektes konnte nicht
ausgeführt werden.

Code:

Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_
xlNone, SkipBlanks:=False, Transpose:=False

Hat vielleicht jemand eine gute Idee was da falsch sein könnte, oder
vielleicht einen anderen Vorschlag, wie das Problem zu lösen ist (Excel
unter Office XP) ?

Herzlichen Dank

Peter


Monika Weber

unread,
Jan 7, 2003, 5:02:26 PM1/7/03
to
Hallo Peter

Nun, am Code liegt es nicht, den habe ich unter XP getestet.

> Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:=
> _

Das Underline ("_") gehört noch ans Ende der oberen Zeile ...

Code verkürzt:

Sub test()
Cells.Copy
Workbooks.Add
ActiveSheet.Paste
Selection.PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub

--
Ich hoffe, dass Dir das weiterhilft.

"Es liebs Grüessli" aus der Schweiz
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch / http://excel.codebooks.de

"Peter" <p_de...@aon.at> schrieb im Newsbeitrag
news:3e1b4505$0$43524$91ce...@newsreader02.highway.telekom.at...

Torsten Krebs

unread,
Jan 8, 2003, 4:09:31 AM1/8/03
to
Hallo Peter!

Versuch mal zwischen Workbooks.Add und ActiveSheet.Paste ein
Worksheet(XYZ).Activate.
Excel hat ab und an mal Probleme mit dem Fokus. Wenn dieser nach dem Wbo.add
nicht auf dem entsprechenden Sheet liegt kommt ein 1004er. Ist mir besonders
häufig bei Setzen & Entfernen des Blattschutzes passiert!

Gruss
Torsten

"Peter" <p_de...@aon.at> schrieb im Newsbeitrag
news:3e1b4505$0$43524$91ce...@newsreader02.highway.telekom.at...

Peter

unread,
Jan 8, 2003, 12:41:16 PM1/8/03
to
Hallo Monika,

danke für die Information (die Formatierung ist natürlich nur durch das
Kopieren des Codes verschoben). Leider kein Erfolg, immer noch Fehler 1004.

Liebe Grüße aus Österreich

Peter
----------------------------------------
"Monika Weber" <monika...@mvps.org> schrieb im Newsbeitrag
news:uyPzuhptCHA.1624@TK2MSFTNGP11...

Peter

unread,
Jan 8, 2003, 12:49:18 PM1/8/03
to
Hallo Torsten,

Danke für den Hinweise, hat leider nicht geholfen.
Der Code bleibt immer beim 'Selection.PasteSpecial ...' hängen, mit besagtem
Laufzeitfehler...

Danke
Peter
---------------
"Torsten Krebs" <tkr...@misag.com> schrieb im Newsbeitrag
news:uJ2igWvtCHA.1844@TK2MSFTNGP09...

Frank Arendt-Theilen

unread,
Jan 8, 2003, 5:48:21 PM1/8/03
to
Hallo Peter,
wie folgt:

ActiveSheet.Cells.Copy
Worksbook.Add
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Peter

unread,
Jan 9, 2003, 1:01:22 PM1/9/03
to
Hallo Frank,

leider bekomme ich bei diesem Code die Fehlermeldung:
"Die PastSpecial-Methode des Range-Objektes konnte nicht ausgeführt
werden."

..vielleicht hast Du noch eine andere Idee ?

MfG

Peter

"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag
news:6p8p1vom3tra7lfpd...@4ax.com...

Frank Arendt-Theilen

unread,
Jan 9, 2003, 1:30:39 PM1/9/03
to
Hallo Peter,
bis auf den Schreibfehler Worksbook --> Workbooks.Add
macht der Code bei mir was er soll.

Peter

unread,
Jan 9, 2003, 3:53:50 PM1/9/03
to
Sorry Frank,

hab gerade ein dummy Sheet erzeugt, wo ich den Code nur als Macro laufen
lasse.

Sub SC()
Dim KalkulationS As String
Dim Destination As String
KalkulationS = "Kalkulation_Save.xls"
Destination = "Kalkulation_Save"

ActiveSheet.Cells.Copy

Set NewBook = Workbooks.Add
With NewBook
.Title = Destination
.Subject = "Sales"
.SaveAs Filename:=KalkulationS
End With


'Worksbooks.Add -- da hab ich vorhergehende Zeilen eingesetzt, da die Zeile
alleine nicht wollte

ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

... und er blockiert leider immer noch bei der 'PasteSpecial' Zeile

Schick mir bitte mal Dein Muster, daß bei Dir funktioniert, vielleicht
übersehe ich noch was..

Danke

Peter

-----------------------------------

"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag

news:pgfr1vcj88ahgpmtp...@4ax.com...

0 new messages