Ich hatte schon eine andere Methode nur leider musste man jede Dateien bestätigen welches Tabellenblatt er auslesen soll.
Hoffe Ihre könnt mir weiter helfen.
Option Explicit
Const sXlsPath = "pfad"
Const iStartZeile = 3
Const iStartSpalte = 2
Const Zellen = "B22,O23,O21,O19,O25,O27,O33,D39,E39,F39,G39,H39,I39,J39,K39,L39,M40,D40,E40,F40, _
G40,H40,I40,J40,K40,L40,M40,D42,E42,F42,G42,H42,I42,J42,K42,L42,M42,D43,E43,F43,G43,H43,I43,J43, _
K43,L43,M43,D44,E44,F44,G44,H44,I44,J44,K44,L44,M44,D4,C69,D5,D17,K9,D37,K13"
Sub Test()
' oFile.Name Then
Set oWkb1 = Workbooks.Open(oFile.Path)
Set oWks1 = oWkb1.Sheets(1)
For i = 0 To UBound(aCells)
oWks0.Cells(iNextLine, iStartSpalte).Offset(0, i) = oWks1.Range(Trim(aCells( _
i))).Value
Next
oWkb1.Close False
iNextLine = iNextLine + 1
End If
End If
Next
'
Vielen Dank