Blattinhalt aus anderer Mappe einlesen
01.02.2004 09:10:32
Peter
ich möchte den Blattinhalt eines best. Bereiches
des Tabellenblattes "Grundbestand",
einer anderen Arbeitsmappe, in meine Arbeitsmappe
in das Blatt "Bestand" übernehmen.
Wer kann helfen?
Danke Peter
Sub Einlesen()
Dim sFile As String
Dim QuellBereich
'*** den Pfad und zu öffnende Datei festlegen
ChDir "C:\Abt2\Material"
sFile = "C:\Abt2\Material\Abt2.xls"
'*** öffnen & Werte übernehmen
Workbooks.Open (sFile)
QuellBereich = Worksheets("Grundbestand").Range("A4:I63")
'>>ab hier tritt ein Fehler auf
ActiveWorkbook.Worksheets("Bestand").Activate
ActiveWorkbook.Worksheets("Bestand").Range("A4:I63").Value = QuellBereich
Workbooks(sFile).Close
End Sub