Zellen zwischen Blättern kopieren
31.10.2006 23:37:59
marc
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
Anzeige