Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
812to816
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
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen zwischen Blättern kopieren

Zellen zwischen Blättern kopieren
31.10.2006 23:37:59
marc
Trotz langer Recherche im Forum konnte ich folgendes Problem nicht lösen oder ich habe es nicht zum laufen gekriegt:
Ich möchte einzelne Zellen bzw. Bereiche von einer Tabelle in eine andere kopieren. Die Quell-xls-Datei soll dabei im Dialog ausgewählt werden können.
Folgender Code bringt den Fehler "Index außerhalb des gültigen Bereichs"
Die angesprochenen Sheets sind in den Dateien vorhanden und genauso wie beschrieben auch benannt...

Sub Einlesen()
quelle = Application.GetOpenFilename("Excel-File (*.xls), *.xls")
ziel = ThisWorkbook.FullName
Windows(quelle).Sheets("Projekte").Range("A1").Copy ThisWorkbook.Sheets("Tabelle4").Range("C1")
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen zwischen Blättern kopieren
31.10.2006 23:55:42
P@ulchen
Hallo Marc,
probier mal so:

Sub Einlesen()
quelle = Application.GetOpenFilename("Excel-File (*.xls), *.xls")
ziel = ThisWorkbook.FullName
Workbooks.Open (quelle)
ActiveWorkbook.Sheets("Tabelle1").Range("A1").Copy ThisWorkbook.Sheets("Tabelle1").Range("C1")
ActiveWorkbook.Close False
End Sub

Code eingefügt mit Syntaxhighlighter 4.0



Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Anzeige
AW: Zellen zwischen Blättern kopieren
01.11.2006 14:56:29
marc
Danke, so funktionierts. Man sollte also die Quellmappe einfach öffnen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige