Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range in anderes Sheet Kopieren

Range in anderes Sheet Kopieren
08.08.2018 16:20:35
Andreas
Hallo Liebe Excel Freunde
Ich will eine Range von einem Tabellenblatt in ein anderen kopieren, kann mir jemand helfen und sagen warum in der ersten Zeile die Fehlermeldung:
Laufzeitfehler '1004'
Anwendung- oder objektdefinierter Fehler
bekomme
: (i=66)
Sheets("Lieferantenliste").Range(Cells(7, 2), Cells(i, 12)).Copy
Sheets("Q-Fähigkeit").Range(Cells(7, 1), Cells(i, 11)).Paste
Vielen Dank
Lg Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range in anderes Sheet Kopieren
08.08.2018 16:27:53
Werner
Hallo Andreas,
so: 
With Worksheets("Lieferantenliste")
.Range(.Cells(7, 2), .Cells(i, 12)).Copy Worksheets("Q-Fähigkeit").Cells(7, 1)
End With
So wie du das geschreiben hattest, müsstest du vor jedes Range Objekt auch das entsprechende Tabellenblatt mit angeben (also auch vor den jeweiligen Cells.
Das kann man sich sparen indem man das ganze in ein With - End With packt. Dabei muss man aber dann darauf achten, dass vor jedem Range Objekt ein Punkt gesetzt wird. So wird dann korrekt auf das im With angegebene Blatt referenziert.
Beim Ziel reicht es die linke obere Zielzelle anzugeben.
Gruß Werner
Anzeige
AW: Range in anderes Sheet Kopieren
08.08.2018 16:30:40
Nepumuk
Hallo Andreas,
beim Einfügen muss nur die obere linke Zelle angegeben werden. Teste mal:
With Worksheets("Lieferantenliste")
    Call .Range(.Cells(7, 2), .Cells(i, 12)).Copy( _
        Destination:=Worksheets("Q-Fähigkeit").Cells(7, 1))
End With

Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige