Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Copy-Paste wirft Fehlermeldung aus

Copy-Paste wirft Fehlermeldung aus
22.10.2014 23:13:53
Sebastian
Hallo in die Runde
Ich möchte aus einem Tabellenblatt Daten eines Bereichs (zwei Spalten) auswählen und in ein anderes Tabellenblatt kopieren.
Dazu wird in der Tabelle "ÜL" zunächst geprüft, wie viele Einträge vorhanden sind und anschließend der Bereich mit Einträgen von oben links (also quasi Zelle A2) bis unten rechts (Anzahl der Zeilen mit Einträgen, Spalte 2) kopiert.
Dieser Inhalt soll nun im Tabellenblatt "Druckdaten" ab der Zelle 5,3 (C5) eingefügt werden.
Dazu mein Quellcode:
i=2
Do Until Worksheets("ÜL").Cells(i, 1) ""
i = i + 1
Loop
Worksheets("ÜL").Range(Cells(2, 1), Cells(i, 2)).Copy (Worksheets("Druckdaten").Range(Cells(5, 2)))
-----
Ausgeführt ergibt dies immer Laufzeitfehler 1004, aber WO liegt der Fehler? :(
Ich freue mich über hilfreiche Hinweise und danke bereits jetzt :)
Gruß
Sebastian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
2 Fehler
22.10.2014 23:25:22
{Boris}
Hi Sebastian,
abgesehen davon, dass Deine Do-Loop-Schleife die langsamste aller Möglichkeiten ist, möchtest Du doch die letzte (lückenlos) gefüllte Zelle in Spalte A des Blattes ÜL ermitteln.
Da Du auf ungleich "" prüfst, musst Du Until durch While ersetzen.
Dein Fehler kommt aber von der Anweisung Range(Cells(5, 2)). Entweder schreibst Du Range("B5") oder Cells(5,2) - aber keinesfalls Dein Konstrukt ;-)
VG, Boris

AW: 2 Fehler
23.10.2014 02:07:54
Sebastian
Hallo Boris
Vielen Dank für deine Antwort.
Leider führen beide von Dir angeführten Möglichkeiten zum gleichen Fehler (Laufzeitfehler 1004).
Wenn ich jeder Zelle manuell den Wert der anderen zuweise, dann funktioniert es - aber nicht mittels copy :(
Weitere Tipps?
Gruß
Sebastian
PS: Wenn meine Do-Loop-Variante so langsam ist - wie wäre es denn schneller oder besser? ;) (Auch hier bin ich für nützliche Tipps dankbar.)

Anzeige
AW: 2 Fehler
23.10.2014 02:16:11
Sebastian
Ausprobiert und Lösung gefunden!
Der Code
Worksheets("ÜL").Range(Cells(2, 1), Cells(i - 1, 2)).Copy (Worksheets("Druckdaten").Cells(5, 2))
funktioniert nicht und führt zur besagten Fehlermeldung.
Die Abwandlung
Worksheets("ÜL").Select
Range(Cells(2, 1), Cells(i - 1, 2)).Copy (Worksheets("Druckdaten").Cells(5, 2))hingegen funktioniert.
Es muss scheinbar vorher das Tabellenblatt selektiert werden - mittels Direktansprache funktioniert es nicht.
Somit Problem gelöst, aber den Hinweis auf die schnellere bzw. ordentlichere Methode zur Ermittlung der nächsten freien Zeile hätte ich dennoch gerne noch :)

Anzeige
AW: 2 Fehler
23.10.2014 08:14:13
Luschi
Hallo Sebastian,
und das Gemeine daran ist, das in keiner Vba-Hilfe (Excel 2002 - 2013) auf diesen Umstand hingewiesen wird. Dieser Programmcode läuft übrigens tadellos, wenn man die Kopierprozedur in das Klassenmodul der entsprechenden Tabelle verschiebt - dann ist die Selektiererei nicht erforderlich, auch wenn eine ganz andere Tabelle auf dem Bildschirm aktiv ist.
Beispiel: Im Klassenmodul der Tabelle 'ÜL' ist definiert: 

Sub Kopieren()
Worksheets("xyz").Select  'ja auch das geht!!!
Worksheets("GÜ").Range(Cells(2, 2), Cells(4, 5)).Copy Worksheets("Druckdaten").Cells(5, 2)
End Sub
Aus einem normalen Modul kann man dann die Routine so starten:
Worksheets("GÜ").Kopieren
Grup von Luschi
aus klein-Paris
PS: wegen der lezten belegten Zelle in einer Zeile siehe hier:
http://www.excel-inside.de/vba-loesungen/zellen-a-bereiche/337-letzte-zeile-letzte-spalte-und-letzte-zelle-per-vba-ermitteln
Anzeige

22 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
Umstellung Office 03/11 bei ActiveSheet.Paste
Bastian

Liebes Forum,
bei uns gab es gerade die Umstellung von Excel Office 2003 auf Excel Office 2010
Ein Makro, welches bisher problemlos lief, funktioniert jetzt nicht mehr.
Bei den Programmzeilen
Sheets("Diagramm1").Select
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.C...
26.03.2011 13:27:56
Thread-ID: 1206732
2 Beiträge
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
Anzeige
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
Copy / Paste in neue Mappe Fehler 438
Markus

Hallo zusammen,
ich habe ein Makro geschrieben, dass nach diversen Filtervorgängen in einer Arbeitsmappe, den gewünschten Bereich kopiert. Nun soll dies in einer anderen bereits offnen Arbeitsmappe auf einem bestimmten Arbeitsblatt eingefügt werden, doch leider bekomm ich immer den Laufzeit...
16.07.2013 13:14:29
Thread-ID: 1322736
4 Beiträge
VBA PasteSpecial - Titel verschiebt sich
Marcus

Hallo Zusammen!
Ich möchte Diagramme einer Excel-Datei per Makro in eine vorgefertigte PPT-Präsentation als Metadatei einfügen. Funktioniert soweit auch alles ganz gut, nur ein Problem bekomm ich einfach nich in den Griff. Es verschiebt sich der Titel der Folie, bzw. das Textfeld vergrößert...
19.08.2014 14:02:28
Thread-ID: 1377224
6 Beiträge
VBA: Copy-Paste mit Fehlermeldung
Luisa
Liebe Community,
ich bin gerade dabei per Copy-Paste Daten in verschiedenen Tabellenblätter zu übertragen. Dabei erhalte ich leider die Fehlermeldung: Anwendungs- oder objektdefinierter Fehler! :(
Der Code sieht wie folgt aus:
Option Explicit Sub Kopieren() Dim letzteZeile As String She...
10.02.2016 14:57:57
Thread-ID: 1474546
7 Beiträge
Copy Paste mit Variablen gibt Fehlercode
Max2

Ich habe ein Makro welches in einem variierenden Bereich Zellen kopieren und in einem anderen Blatt wieder einfügen soll.
Wenn ich ".Range("A1")" durch ".Range(.Cells(l, 1), .Cells(h, lngLetzteSpalte))" ersetze, bekomme ich immer einen Objekt definierten Fehler.
Warum geht es mit den V...
31.10.2016 16:30:16
Thread-ID: 1522437
7 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
2
1
7
2
5
3
5
6
6
13
1
1
8
2
2
4
12
3
3
18
1