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

Fehler bei Paste Methode, Laufzeitfehler 1004

Forumthread: Fehler bei Paste Methode, Laufzeitfehler 1004

Fehler bei Paste Methode, Laufzeitfehler 1004
07.06.2007 10:23:00
Andre
Moin Moin,
bin mal wieder unbeholfen was Excel angeht.
Habe mir mit dem Recorder ein Makro erstellt, allerdings führt Excel es nur zum Teil aus.
Bin für jede Hilfe dankbar!
Gruß
André aus SH
Die Fehlermeldung: Laufzeitfehler 1004
Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Das Makro:

Sub Test_07_06()
' Test Makro
' Makro am 07.06.2007 von andre aufgezeichnet
Workbooks.Open Filename:= _
"C:\Test.xls"
Range("B4:C33").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("B4:C33").Select
Selection.Copy
ActiveWorkbook.Save
ActiveWindow.Close
Range("B4").Select
ActiveSheet.Paste             DENKE MAL DAS EXCEL SICH AN DIESER STELLE AUFHÄNGT.
Range("C3").Select
Workbooks.Open Filename:= _
"C:\Test.xls"
Range("E4:E33").Select
Selection.Copy
ActiveWindow.Close
Range("E4").Select
ActiveSheet.Paste
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy
Range("D3:D33").Select
ActiveWindow.SmallScroll Down:=-9
Range("B4:C33").Select
Selection.Copy
Sheets("WB").Select
Range("C12").Select
ActiveSheet.Paste
Range("E12").Select
Sheets("Voreinstellungen").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Range("B3").Select
End Sub


Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Paste Methode, Laufzeitfehler 1004
07.06.2007 10:32:13
Hajo_Zi
Hallo Andre,
auf select kann in VBA zu 99% verzichtet werden. Ohne Testung
Option Explicit

Sub Test_07_06()
' Test Makro
' Makro am 07.06.2007 von andre aufgezeichnet
Dim StName As String
StName = ActiveSheet.Name
Workbooks.Open Filename:="C:\Test.xls"
Range("B4:C33").Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("B4:C33").Copy ThisWorkbook.Worksheets(StName).Range("B4")
ActiveWindow.Close
Workbooks.Open Filename:="C:\Test.xls"
Range("E4:E33").Copy ThisWorkbook.Worksheets(StName).Range("E4")
ActiveWindow.Close
Range("D3").AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy
Range("B4:C33").Copy Sheets("WB").Range("C12")
End Sub



Anzeige
AW: Fehler bei Paste Methode, Laufzeitfehler 1004
07.06.2007 10:34:00
Hajo_Zi
Hallo Andre,
auf select kann in VBA zu 99% verzichtet werden. Ohne Testung
Option Explicit

Sub Test_07_06()
' Test Makro
' Makro am 07.06.2007 von andre aufgezeichnet
Dim StName As String
StName = ActiveSheet.Name
Workbooks.Open Filename:="C:\Test.xls"
Range("B4:C33").Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("B4:C33").Copy ThisWorkbook.Worksheets(StName).Range("B4")
ActiveWindow.Close
Workbooks.Open Filename:="C:\Test.xls"
Range("E4:E33").Copy ThisWorkbook.Worksheets(StName).Range("E4")
ActiveWindow.Close
Range("D3").AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy
Range("B4:C33").Copy Sheets("WB").Range("C12")
End Sub



Anzeige
@Hajo Danke für deine Hilfe - klappt jetzt!
07.06.2007 10:48:00
Andre
.
;

Forumthreads zu verwandten Themen

Hilffeeee: Laufzeitfehler 1004
Tanya

Hallo,
ich habe eine Makro, die mehrere Diagramme aktualisiert.
codeabschnitt:
Sheets("Druck-stat").Select
ActiveChart.SeriesCollection(1).XValues = "=Mitteldaten!R9C2:R" & hilfs & "C2"
ActiveChart.SeriesCollection(1).Values = "=Mitteldaten!R9C5:R" & hilfs &...
14.08.2008 15:35:58
Thread-ID: 1001894
2 Beiträge
Laufzeitfehler 1004
Jörg

Ich erhalte einen merkwürdigen Fehler, bei ug. Script. Die Zeile
"Range(Cells(intRow, 1), Cells(intRow, 2)).Select" löst den "Laufzeitfehler 1004 / Anwendungs- oder objektorientierter Fehler" aus.
Ich kann hier keinen Fehler entdecken. Woran liegt's? Gibt's eine Idee? Danke für Eure Mü...
29.09.2008 11:35:58
Thread-ID: 1013056
10 Beiträge
Sharepoint CheckIn Laufzeitfehler 1004
Iro

Hallo Excel-Gemeinde,
und wieder habe ich ein Problem mit Sharepoint. Wenn ich versuche einzuchecken erhalte ich nur eine Fehlermeldung:
Laufzeitfehler 1004: Die Methode 'CheckIn' ist für das Objekt '_Workbook' fehlgeschlagen
Das Programm ruft die Datei auf, prüft ob es sie einch...
30.10.2008 12:02:28
Thread-ID: 1020555
4 Beiträge
Anzeige
Laufzeitfehler 1004 - Wo ist der Unterschied
Christoph

Hallo Zusammen,
ich habe bei einer simplen Zeile immer Laufzeitfehler 1004 bekommen. Zwar konnte ich durch Aenderung das Problem umgehen, jedoch wollte ich einfach mal verstehen was schief laeuft und habe das Problem mal systematisch vereinfacht. Hier nun das Resultat:
Sub Test() She...
22.11.2008 14:28:50
Thread-ID: 1026949
4 Beiträge
Anzeige
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Anzeige
Laufzeitfehler 1004
jay

Hallo zusammen,
ich bekomme ständig eine Fehlermeldung:
Laufzeitfehler 1004
Die Select-Methode des Range-objekts konnte nicht ausgeführt werden
für folgenden Code
Private Sub CommandButton2_Click() With Worksheets("Tabelle1") If .ComboBox1 = "Material" Then Worksheets("T...
23.01.2009 00:00:35
Thread-ID: 1042778
3 Beiträge
Anzeige
Webabfrage und laufzeitfehler 1004
MBorn

Liebe Excel-Freunde,
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, w...
26.01.2009 17:26:00
Thread-ID: 1043962
3 Beiträge
Laufzeitfehler 1004 - Select-Methode bei Range
Steffen

Hi zusammen,
habe ein minder wichtiges Problem mit einer Sortierung, die ich im Anschluss an das Füllen einer Liste vornehmen möchte.
Habe schon ein paar Forenbeiträge durchforstet und bei mir scheint es nicht nur das übliche Problem zu sein, dass der Pfad nicht genau angegeben wird.
17.04.2009 13:12:05
Thread-ID: 1069307
4 Beiträge
Laufzeitfehler 1004
natka

Hallo hatte eine bisher funktionierende Statistikliste und nun will er nicht mehr automatisch aktuallisieren.
Was kann ich tun. Diese Fehlermeldung springt raus, wenn ich meinen aktualisierungs Knopf betätige
" Die Name- Eigenschaft des Serienobjekts kann nicht festgestellt werden"
...
09.07.2009 21:18:53
Thread-ID: 1087425
2 Beiträge
Laufzeitfehler 1004 - Blattschutz schuld?
Ludwig

Hallo zusammen!
Ich habe eine Excel-Datei (m. Makros) angefertigt, welche ich an div. User verteilt habe, mit der bitte diese auszufüllen.
Darin sind verschieden Felder enthalten, die ausgefüllt werden müssen, der Rest ist gesperrt.
Folgenden Blattschutz habe ich eingebaut:
Sub...
25.08.2009 17:00:40
Thread-ID: 1098513
4 Beiträge
Laufzeitfehler 1004 Anwendungs oder usw.
Daniel

Hallo,
ich habe ein Problem mit meinem VBA Code.
Er soll in einem bestimmten Bereich der Tabelle alle Bilder löschen(welche davor auf Doppelklick eingefügt wurden) .
Der Code funktioniert auch, aber nach einiger Zeit kommt immer der Fehler 1004 (siehe Betreff) Anwendungs oder objekt...
28.08.2009 09:38:34
Thread-ID: 1099108
12 Beiträge
Laufzeitfehler 1004 - Copy
Tom

Hallo,
ich habe ein VBA Script, welches weitere Teile mittels "Call" aufruft.
Die Scriptteile nehmen ein Tabellenblatt und kopieren dies in eine andere Excel-Datei und füllen dann einige Daten auf.
Dann wird das nächste Blatt kopiert...wieder in die selbe, andere Excel-Datei und wie...
09.09.2009 14:16:53
Thread-ID: 1101536
9 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Fehler bei Paste Methode: Laufzeitfehler 1004 in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei: Stelle sicher, dass die Datei korrekt geöffnet wird.

    Workbooks.Open Filename:="C:\Test.xls"

  2. Sortieren der Daten: Sortiere den gewünschten Bereich ohne die Select-Methode.

    Range("B4:C33").Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4"), Order2:=xlAscending, Header:=xlNo

  3. Kopieren der Daten: Verwende die Copy-Methode direkt ohne vorherige Auswahl.

    Range("B4:C33").Copy ThisWorkbook.Worksheets("DeinSheetName").Range("B4")

  4. Daten einfügen: Vermeide ActiveSheet.Paste und benutze stattdessen:

    ThisWorkbook.Worksheets("DeinSheetName").Range("B4").PasteSpecial

  5. AutoFill verwenden: Um den Bereich automatisch auszufüllen:

    Range("D3").AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy

  6. Speichern und Schließen: Speichere deine Änderungen und schließe die Arbeitsmappe.

    ActiveWorkbook.Save
ActiveWindow.Close

Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Dieser Fehler tritt häufig auf, wenn die Paste-Methode nicht korrekt verwendet wird. Achte darauf, dass du die richtigen Referenzen verwendest und die Select-Methode vermeidest.

  • Dateipfad: Überprüfe, ob der angegebene Dateipfad korrekt ist. Ein falscher Pfad führt dazu, dass die Datei nicht gefunden wird.

Alternative Methoden

  • Direktes Kopieren ohne Auswahl: Statt Selection.Copy zu verwenden, kannst du direkt auf die Zelle zugreifen:

    Range("B4:C33").Copy Destination:=Sheets("WB").Range("C12")

  • Verwenden von PasteSpecial: Nutze PasteSpecial, um spezifische Paste-Optionen auszuwählen, z.B. nur Werte oder Formate:

    Range("C12").PasteSpecial Paste:=xlPasteValues

Praktische Beispiele

Hier ist ein einfaches Beispiel für ein Makro, das die Paste-Methode korrekt anwendet:

Sub BeispielMakro()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Tabelle1")

    Workbooks.Open Filename:="C:\Test.xls"
    ws.Range("B4:C33").Copy Destination:=ws.Range("D4")
    Application.CutCopyMode = False
End Sub

Tipps für Profis

  • Nutze Option Explicit: Das Hinzufügen von Option Explicit oben im Modul zwingt dich dazu, alle Variablen zu deklarieren, was die Fehlersuche erleichtert.

  • Makros optimieren: Vermeide unnötige Bildschirmaktualisierungen mit:

    Application.ScreenUpdating = False

  • Fehlerbehandlung: Implementiere Fehlerbehandlung in deinem Code, um Laufzeitfehler abzufangen:

    On Error Resume Next

FAQ: Häufige Fragen

1. Was bedeutet Laufzeitfehler 1004?
Der Laufzeitfehler 1004 zeigt an, dass Excel ein Problem beim Ausführen des Codes hat, meist aufgrund falscher Referenzen oder Methoden.

2. Kann ich die Select-Methode komplett vermeiden?
Ja, es ist empfehlenswert, die Select-Methode zu vermeiden, um den Code effizienter und weniger fehleranfällig zu gestalten.

3. Wie kann ich sicherstellen, dass meine Daten korrekt eingefügt werden?
Verwende die PasteSpecial-Methode, um genau zu steuern, was eingefügt wird, z.B. nur Werte oder Formate.

Beliebteste Forumthreads (12 Monate)

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