Excel zu Excel Import
16.01.2016 20:36:18
Björn
meine Herausforderung:
Ich möchte aus einer Excel-Datei heraus eine andere Excel-Datei öffnen und Daten kopieren.
Diese befindet sich im gleichen Ordner, der Dateiname ändert sich jedoch regelmäßig. Die zu importierenden Daten befinden sich immer an der gleichen Stelle, auf unterschiedlichen Tabellenblättern.
Die Daten auf dem ersten Tabellenblatt "Kalkulation" werden kopiert, beim Aktivieren des Tabellenblatts "Modell" tritt folgende Fehlermeldung:
Laufzeitfehler 9 Index außerhalb des gültigen Bereichs
(das Tabellenblatt existiert und der Tabellenname ist auch richtig geschrieben).
Hier ist mein VBA Code:
Sub import()
Dim strsource As String
Dim Datum As Date
Dim Text As Variant
Dim Betrag As Single
Dim Proz1, Proz2, Proz3 As Single
ChDir ThisWorkbook.Path
strsource = Application.GetOpenFilename()
Workbooks.Open Filename:=strsource
Text = Cells(2, 1).Value
Datum = Cells(3, 1).Value
Betrag = Cells(4, 1).Value
Worksheets("Modell").Activate
Proz1 = Cells(1, 1).Value
Proz2 = Cells(2, 1).Value
Proz3 = Cells(3, 1).Value
ThisWorkbook.Activate
Cells(1, 1).Value = Text
Cells(2, 1).Value = Datum
Cells(3, 1).Value = Betrag
Cells(7, 1).Value = Proz1
Cells(8, 1).Value = Proz2
Cells(9, 1).Value = Proz3
End Sub
Danke.
Gruß
Björn