Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten zwischen Tabellen kopieren

Forumthread: 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
Anzeige

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.
Anzeige
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.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige