Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten zwischen Tabellen kopieren

Daten zwischen Tabellen kopieren
24.05.2005 13:20:05
Debuger
Hallo Forum,
ich habe folgenden Makro (Ausschnitt):
...
Set WS = Workbooks("20050520_l6_w_pca_q_q.xls").Worksheets(1)
...
With WS
ThisWorkbook.Worksheets(1).Range(Cells(IndX, 2), Cells(Cells(IndX, 14))).Copy .Range(.Cells(Rows.Count, 17))
End With
Bei der Ausführung dieser Anweisung bekomme ich immer die Fehlermeldung:
"1004 Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen"
Anscheinend "gefällt" ihm nicht der zweite Teil (Destination) nicht, aber warum?
Bitte um Hilfe.
Danke NtQ

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

Betreff
Datum
Anwender
Anzeige
AW: Daten zwischen Tabellen kopieren
24.05.2005 13:25:14
u_
Hallo,
ihm gefällt auf jeden Fall der 1.Teil nicht. Doppelt Cells drin.
Range(Cells(IndX, 2), Cells(Cells(IndX, 14))).
Willst du wirklich nach Q65536 kopieren?
Gruß
Geist ist geil!
AW: Daten zwischen Tabellen kopieren
24.05.2005 13:28:07
R.Klärung
Range(Cells(x,y),Cells(c,d)) bezieht sich immer auf das aktive Blatt, du musst den Blattnamen voranstellen.
mfg R.
AW: Daten zwischen Tabellen kopieren
24.05.2005 13:45:11
Debuger
... Ich will ja vom aktiven Blatt ins WS kopieren...
AW: Daten zwischen Tabellen kopieren
24.05.2005 13:53:45
R.Klärung
Wenn es das aktive Blatt ist, reicht es auch so:
with ws
Range(Cells(IndX, 2), Cells(IndX, 14)).Copy .Range(.Cells(Rows.Count, 17))
end with
Ob die Zielzelle so gewollt ist, lassen wir mal dahingestellt.
mfg R.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige