ich habe ein Makro, mit dem ich in einem bestimmten Ordner Daten aus verschiedenen Tabellenblätter auslesen und in eine Liste schreiben möchte. Die Tabellenblätter sind alle gleich aufgebaut, so dass das Makro im Prinzip in jeder Excel-Datei in dem Ordner in jedem Blatt die jeweils gleichen Zellen Auslesen soll. In der Zieltabelle soll dann 1 Blatt = 1 Zeile entsprechen.
Bisher schaut mein Makro so aus - abgewandelt von einem, was ich bisher habe, welches aus einer Excel-Datei immer ein Tabellenblatt mit einem bestimmten Namen ausliest.
Jetzt bekomme ich immer den Fehler "400" und die Daten werden nicht ausgelesen.
Meine VBA-Kenntnisse sind leider nicht so berauschend, dass ich festellen kann, woran das liegt.
Sub DateienLesen()
Dim oMe As Object, i As Integer, sWbName As String, rFound As Range, vWert As Variant, iZeile _
_
As Integer
Dim oFS As Object, oDatei As Object, sBereich As String
Dim lngZeile As Long
Dim wsTabelle As Worksheet
Set oMe = ThisWorkbook
Const sDateiPfad As String = "S:\Pfad\" 'Pfad für zu durchsuchende Excel-Dateien; mit Backslash _
_
am Ende
lngZeile = 2
Set oFS = CreateObject("Scripting.FileSystemObject")
For Each oDatei In oFS.GetFolder(sDateiPfad).Files
sWbName = oDatei.Name
Workbooks.Open (sDateiPfad & sWbName)
For Each wsTabelle In Workbooks(sWbName).Worksheets(wsTabelle)
oMe.Sheets("Ausland").Cells(lngZeile, 1) = wsTabelle
oMe.Sheets("Ausland").Cells(lngZeile, 2) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
F6").Value
oMe.Sheets("Ausland").Cells(lngZeile, 3) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
D6").Value
oMe.Sheets("Ausland").Cells(lngZeile, 4) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
D7").Value
oMe.Sheets("Ausland").Cells(lngZeile, 5) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
D13").Value
oMe.Sheets("Ausland").Cells(lngZeile, 6) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E13").Value
oMe.Sheets("Ausland").Cells(lngZeile, 7) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
D11").Value
oMe.Sheets("Ausland").Cells(lngZeile, 8) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E11").Value
oMe.Sheets("Ausland").Cells(lngZeile, 9) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
D10").Value
oMe.Sheets("Ausland").Cells(lngZeile, 10) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E10").Value
oMe.Sheets("Ausland").Cells(lngZeile, 11) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
D12").Value
oMe.Sheets("Ausland").Cells(lngZeile, 12) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E12").Value
oMe.Sheets("Ausland").Cells(lngZeile, 13) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
L8").Value
oMe.Sheets("Ausland").Cells(lngZeile, 14) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
L10").Value
oMe.Sheets("Ausland").Cells(lngZeile, 15) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
L11").Value
oMe.Sheets("Ausland").Cells(lngZeile, 16) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
L12").Value
oMe.Sheets("Ausland").Cells(lngZeile, 17) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E19").Value
oMe.Sheets("Ausland").Cells(lngZeile, 18) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E20").Value
oMe.Sheets("Ausland").Cells(lngZeile, 19) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E21").Value
oMe.Sheets("Ausland").Cells(lngZeile, 20) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E29").Value
oMe.Sheets("Ausland").Cells(lngZeile, 21) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M19").Value
oMe.Sheets("Ausland").Cells(lngZeile, 22) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M20").Value
oMe.Sheets("Ausland").Cells(lngZeile, 23) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M21").Value
oMe.Sheets("Ausland").Cells(lngZeile, 24) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M29").Value
oMe.Sheets("Ausland").Cells(lngZeile, 25) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E40").Value
oMe.Sheets("Ausland").Cells(lngZeile, 26) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E41").Value
oMe.Sheets("Ausland").Cells(lngZeile, 27) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
F50").Value
oMe.Sheets("Ausland").Cells(lngZeile, 28) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M40").Value
oMe.Sheets("Ausland").Cells(lngZeile, 29) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M41").Value
oMe.Sheets("Ausland").Cells(lngZeile, 30) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M42").Value
oMe.Sheets("Ausland").Cells(lngZeile, 31) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M50").Value
oMe.Sheets("Ausland").Cells(lngZeile, 32) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E59").Value
oMe.Sheets("Ausland").Cells(lngZeile, 33) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E60").Value
oMe.Sheets("Ausland").Cells(lngZeile, 34) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E61").Value
oMe.Sheets("Ausland").Cells(lngZeile, 35) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
F69").Value
oMe.Sheets("Ausland").Cells(lngZeile, 36) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M59").Value
oMe.Sheets("Ausland").Cells(lngZeile, 37) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M60").Value
oMe.Sheets("Ausland").Cells(lngZeile, 38) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M61").Value
oMe.Sheets("Ausland").Cells(lngZeile, 39) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
M69").Value
oMe.Sheets("Ausland").Cells(lngZeile, 40) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
E80").Value
oMe.Sheets("Ausland").Cells(lngZeile, 41) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
G80").Value
oMe.Sheets("Ausland").Cells(lngZeile, 42) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
K80").Value
oMe.Sheets("Ausland").Cells(lngZeile, 43) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
R28").Value
oMe.Sheets("Ausland").Cells(lngZeile, 44) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
R29").Value
oMe.Sheets("Ausland").Cells(lngZeile, 45) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
C29").Value
oMe.Sheets("Ausland").Cells(lngZeile, 46) = Workbooks(sWbName).Sheets(wsTabelle).Range(" _
_
J29").Value
Next
lngZeile = lngZeile + 1
Next
Workbooks(sWbName).Saved = True
Workbooks(sWbName).Close
End Sub
Ich danke euch!
Vicky