Dank des Forums habe ich mittlerweile u.g. Code erhalten. Beim Ausführen erhalte ich aber eine Fehlermeldung:
"Datei jugendA_Tore.xls" nicht gefunden
Excel scheint ja die Datei zu finden, sonst wüsste Excel nicht wie die Datei heisst. Bin gerade ziemlich ratlos..jemand einen guten Tipp/Trick für mich ?
(Wenn ich die Datei lösche, dann meldet Excel die nächste Datei in dem Verzeichnis (z.B. jugendB_Tore.xls) als nicht gefunden.
Fabio
Sub datenSammeln()
Dim strPath As String, strFile As String, strTab As String
Dim lngR As Long
Dim i
Dim ZielBook As String, QuellBook As String
lngR = 2 'startZeile
strTab = "Tabelle1" 'ZielSheet
ZielBook = ActiveWorkbook.Name
strPath = "G:\2009\Test\Kindersport" 'Verzeichnis - Anpassen
If Right(strPath, 1) "\" Then strPath = strPath & "\"
strFile = Dir(strPath & "*.xls")
Do While strFile ""
If strFile ZielBook Then
'Workbook open
Workbooks.Open strFile
QuellBook = ActiveWorkbook.Name
For i = 1 To Workbooks(QuellBook).Sheets().Count()
Workbooks(ZielBook).Sheets(strTab).Cells(lngR, 2).Value = Workbooks(QuellBook). _
_
Sheets(i).Name
Workbooks(ZielBook).Sheets(strTab).Cells(lngR, 3).Value = Workbooks(QuellBook). _
_
Sheets(i).Cells(80, 4)
lngR = lngR + 1
Next i
Workbooks(QuellBook).Close
End If
strFile = Dir
Loop
End Sub