Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler mit Range(cells(),cells()).copy

Forumthread: Laufzeitfehler mit Range(cells(),cells()).copy

Laufzeitfehler mit Range(cells(),cells()).copy
09.06.2003 15:00:13
Norbert
Hallo!

Kann mir bitte jemand erklären, weshalb Code_1 funktioniert, aber Code_2 den Laufzeitfehler '1004': "Anwendungs- oder objektdefinierter Fehler" generiert? Eigentlich müßten doch beide Codes zum gleichen Ergebnis kommen.

Code_1:

Worksheets("Blatt1").Range("F5:H46").Copy Destination:=Worksheets("Blatt2").Range("A1")

Code_2:

Worksheets("Blatt1").Range(Cells(5, 6), Cells(46, 9)).Copy Destination:=Worksheets("Blatt2").Range("A1")

Aus bestimmten Gründen bin ich auf die Syntax mit cells() angewiesen. Deshalb wäre ich über einen Hinweis auf den Fehler sehr dankbar!

Ciao,
Norbert

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Laufzeitfehler mit Range(cells(),cells()).copy
09.06.2003 15:27:38
heinerv

hallo Norbert,

auf den ersten Blick fehlt eine öffnende Klammer:

Worksheets("Blatt1").Range((Cells(5, 6), Cells(46, 9)).Copy Destination:=Worksheets("Blatt2").Range("A1")


und zwar hier: Worksheets("Blatt1").Range((


Gruß
heinerv


thx, aber meine Klammern sind wohl ok
09.06.2003 15:47:41
Norbert

Bei Dir ist die Summe der Klammern ungerade, was ja nicht sein dürfte.

Anzeige
Re: Laufzeitfehler mit Range(cells(),cells()).copy
09.06.2003 15:58:48
ChrisL

Hi Norbert

Als 'Trockenübung' funktionieren bei mir beide Codes. Kann es sein, dass du den Code einmal aus einem Standartmodul und das andere mal aus einem Klassenmodul (z.B. CommandButton) heraus ausgeführt hast. Bei mir in Excel 97 habe ich nämlich das Problem, dass die Copy-Geschichte nur im Modul funktioniert.

Wenn du nur auf Werte, nicht aber auf die Formatierung aus bist, könntest du es auch mal mit einer Gleichung probieren.

Worksheets("Blatt2").Range("A1:D42").Value = Worksheets("Blatt1").Range(Cells(5, 6), Cells(46, 9)).Value

Gruss
Chris

Anzeige
Re: Laufzeitfehler mit Range(cells(),cells()).copy
09.06.2003 16:04:42
Georg_Zi

Hallo Norbert

ich mußte jetzt erstmal eine Weile Testen bis ich auf den Fehler kam. Folgendes ist ist das Blatt1 nicht Aktiv bezieht sich Cells auf das aktrive blatt und das geht nicht. Man könnte schreiben
Worksheets("Blatt1").Range(Worksheets("Blatt1").Cells(5, 6), Worksheets("Blatt1").Cells(46, 9)).Copy Destination:=Worksheets("Blatt2").Range("A1")

oder

Gruß Hajo

Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel



Anzeige
Re: Laufzeitfehler mit Range(cells(),cells()).copy
09.06.2003 16:13:39
Norbert

Hi Chris!

Ich verwende den Code innerhalb eines Activate-Ereignisses:

Private Sub Worksheet_Activate()

Worksheets("Blatt1").Range(Cells(5, 6), Cells(46, 9)).Copy Destination:=Worksheets("Blatt2").Range("A1")

End Sub

Dein Vorschlag produziert aber leider den gleichen Laufzeitfehler '1004': "Anwendungs- oder objektdefinierter Fehler" :-(

Trotzdem, besten Dank!

Ciao,
Norbert

Anzeige
Besten Dank, das war's!! (mkT)
09.06.2003 16:17:51
Norbert

Hi Hajo!

Es lag tatsächlich daran, daß ich diesen Code als Activate-Ereignis dem Blatt_2 zugewiesen habe.

Besten Dank!

Norbert

;

Forumthreads zu verwandten Themen

with .Range ... .Copy Destination .... Syntax?
Peter

Guten Tag
Mit untenstehendem Code trage ich in der Spalte 102 bestimmte Werte ein und möchte diese in Spalte 69 einsetzen.
Auf Zeile .Copy Destination:=.Range(.Cells(9, 69), .Cells(lngEnd, 69))
erhalte ich ein Debug.Fehler (Anwendungs- oder objektdefinierter Fehler).
Kann mir...
12.10.2010 10:04:14
Thread-ID: 1181863
3 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
per VBA Range finden, die im cutcopy-mode ist
anugyan

Hi Leute,
gibt es eine Möglichkeit in Excel die Range zu finden (und in eine Variable zu speichern), die sich im cutcopy-mode befindet, wenn nach SelectionsChange schon eine andere Zelle markiert ist?
Über eine schnelle Hilfe würde ich mich sehr freuen. Danke
Anugyan
14.07.2002 12:46:57
Thread-ID: 136397
3 Beiträge
Cells in Range bei VBA
Ulrich

Hallo,
ich hoffe ihr könnt helfen
folgende Zeile geht
Worksheets("vorl").Range("H34:BK34").Copy
gewandelt in cells geht nicht
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
benutzt in
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
Range...
06.05.2015 10:03:50
Thread-ID: 1424850
26 Beiträge
VBA: Copy_Destination
Franz W.
Hallo Fachleute,
ich versuche wie folgt zu kopieren:
Worksheets("Offene").Range(Cells(rw, 1), Cells(rw, 11)).Copy _
Destination:=Worksheets("bez" & jZahl).Range(Cells(loLetzte + 1, 1), Cells(loLetzte + 1, 11))
Geht aber nicht, es kommt: " Anwendungs- oder objektdefinierter Fehler...
30.07.2003 17:20:29
Thread-ID: 287826
4 Beiträge
Anzeige
VBA Problem - Copy Destination
Daniel
Hallo XL-Folks & Friends

Ich habe ein Skript welches wenn eine Zelle auf A steht dann gewisse Zelle in ein andere Zellen kopiert (siehe Skript). Ich möchte dieses Skript nun wiederholen und für andere Zellen auch verwenden. Doch nun funktioniert das untere Skript nicht. Das obere (alte) fun...
30.10.2003 13:30:55
Thread-ID: 331051
10 Beiträge
Range(Cells, Cells).Copy tut nicht...
Janine

Hallo Forumsteilnehmer,

ich bin in einer Schleife und benötige die erste Aktion:
(1) WB.Worksheets("Dokumentationsplanung").Range(Cells(a, 78), Cells(a, 83)).Copy

sie funktioniert aber leider nicht: "Anwendungs- oder Objektdefinierter Fehler".
Ich dachte es liegt an meiner...
07.11.2003 12:33:31
Thread-ID: 334796
7 Beiträge
Copy Range VBA
Frank
Hallo Leute,
ich will per VBA immer zwei bestimmte Zellen kopieren um diese dann in ein anderes Sheet zu pasten. Hier der Code: Was ist falsch?
Sub Coefficients() ' Coefficients Macro Dim Coefficients As Worksheet Dim Regressions As Worksheet Set Coefficients = Sheets("Coefficients") Set Re...
25.08.2004 15:22:44
Thread-ID: 475104
6 Beiträge
Cells range variablen.... in VBA
der

Hallo ihr Cracks!
was mache ich falsch?
Worksheets("LOP").PageSetup.PrintArea = "$A$1:(cells(endpunkt))"
will den Druckbereich festlegen mit der dynamischen Zellmarkierung -
A1 bis endpunkt (wird automatisch gesucht und ist z.B. dann N3)
Der markierte Bereich ist immer 14 Sp...
02.09.2005 10:00:05
Thread-ID: 661545
2 Beiträge
Range.Copy Destination
torro100

Hallo VBA Gemeinde,
ich verzweifle gerade.
Ich habe gelesen dass mit Destination das aktuelle Tabellenblatt egal ist, wenn der Code ausgeführt wird.
Dieser Codeschnipsel funktioniert einwandfrei, aufgerufen aus dem Tabellenblatt Kassenbuch.
Worksheets("Kassenbuch").Range(Cells(1...
30.10.2020 12:59:09
Thread-ID: 1790175
2 Beiträge
VBA finde Übereinstimmung, dann copy paste range
Nadja123
Hallo. Ich benötige ein Makro mit dem ich in meinem Workbook1 "CIB" Spalte C mit meinem Workbook2 "Z_IDeaS_CIB - Kopie" Spalte C vergleiche und wenn es eine Übereinstimmung gefunden hat, ab da die Tabelle kopiert. In Spalte C sind in beiden Sheets Anreisedaten angeben. "CIB" wird täglich als Report...
26.02.2024 18:42:07
Thread-ID: 1967162
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Laufzeitfehler mit Range(cells(),cells()).copy beheben

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor in Excel (drücke ALT + F11).
  2. Erstelle ein neues Modul oder öffne das bestehende Modul, in dem du deinen Code hast.
  3. Verwende die korrekte Syntax für die Range- und Cells-Funktion. Ein Beispiel für die richtige Verwendung wäre: 
    Worksheets("Blatt1").Range(Worksheets("Blatt1").Cells(5, 6), Worksheets("Blatt1").Cells(46, 9)).Copy Destination:=Worksheets("Blatt2").Range("A1")
  4. Stelle sicher, dass das Arbeitsblatt aktiv ist, wenn du die Cells-Funktion verwendest, oder referenziere das Arbeitsblatt direkt, wie im obigen Beispiel.
  5. Teste den Code, um sicherzustellen, dass der Laufzeitfehler '1004' nicht mehr auftritt.

Häufige Fehler und Lösungen

  • Fehler: Laufzeitfehler '1004'
    Ursache: Der Code bezieht sich auf das aktive Blatt, wenn das Zielblatt nicht aktiv ist.
    Lösung: Verwende die vollständige Referenz wie in den Beispielen oben.

  • Fehler bei Klammern
    Stelle sicher, dass die Klammern korrekt gesetzt sind, da ungerade Klammern zu Fehlern führen können.

Alternative Methoden

Falls du nur die Werte und nicht die Formatierungen kopieren möchtest, kannst du folgende Methode verwenden:

Worksheets("Blatt2").Range("A1:D42").Value = Worksheets("Blatt1").Range(Worksheets("Blatt1").Cells(5, 6), Worksheets("Blatt1").Cells(46, 9)).Value

Diese Methode vermeidet Probleme mit Copy und kann einfacher zu handhaben sein.

Praktische Beispiele

  1. Kopieren eines bestimmten Bereichs:

    Worksheets("Blatt1").Range(Worksheets("Blatt1").Cells(1, 1), Worksheets("Blatt1").Cells(10, 5)).Copy Destination:=Worksheets("Blatt2").Range("A1")

  2. Werte kopieren ohne Formatierungen:

    Worksheets("Blatt2").Range("A1").Value = Worksheets("Blatt1").Cells(5, 6).Value

Tipps für Profis

  • Nutze With-Anweisungen, um den Code lesbarer zu machen:

    With Worksheets("Blatt1")
   .Range(.Cells(5, 6), .Cells(46, 9)).Copy Destination:=Worksheets("Blatt2").Range("A1")
End With

  • Überprüfe die Version von Excel, da unterschiedliche Versionen (z.B. Excel 97, Excel XP) unterschiedliche Verhaltensweisen haben können, insbesondere bei der Handhabung von Objekten.

FAQ: Häufige Fragen

1. Warum funktioniert Cells.Copy nicht in meinem Code?
Die Cells-Referenz muss immer auf das entsprechende Arbeitsblatt angewendet werden. Andernfalls verweist sie auf das aktive Blatt, was zu Fehlern führen kann.

2. Was kann ich tun, wenn der Fehler weiterhin auftritt?
Überprüfe die Klammerung und stelle sicher, dass du die richtige Syntax verwendest. Teste den Code in einem Standardmodul, da manche Referenzen in Klassenmodulen problematisch sein können.

3. Welche Version von Excel sollte ich verwenden?
Die Beispiele und Lösungen wurden in Excel 97 und Excel XP getestet. Es ist empfehlenswert, die neueste Version von Excel zu verwenden, um die besten Ergebnisse zu erzielen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige