Mein Code bis jetzt - irgendwo is da was komplett falsch :(
Option Explicit
Sub auflistungtestfaelle()
Dim auswertung As Object
Set auswertung = Workbooks("zaehler.xls").Worksheets("Sheet1") 'ZielDatei/-Tabelle (also die gerade geöffnete)
Const sDateiPfad As String = "D:\Test\" 'Pfad für zu durchsuchende Excel-Dateien; mit Backslash am Ende
Dim sSuchbegriff As String
sSuchbegriff = "*/"
Dim i As Integer 'Zaehlvariablen
Dim sWbName As String 'Arbeitsmappen und Kaestchenangabe
Dim rFound As Range
Dim vWert As Variant
Dim iZeile As Integer
iZeile = 2
Dim oFS As Object
Dim oDatei As Object
Set oFS = CreateObject("Scripting.FileSystemObject")
For Each oDatei In oFS.GetFolder(sDateiPfad).Files
sWbName = oDatei.Name
Workbooks.Open (sDateiPfad & sWbName)
For i = 1 To ActiveWorkbook.Sheets.Count
Set rFound = Workbooks(sWbName).Worksheets(i).Range("a1:z10000").Find(sSuchbegriff, LookIn:=xlValues)
If Not rFound Is Nothing Then
vWert = Cells(rFound.Row, rFound.Column).Value
auswertung.Cells(iZeile, i).Value = vWert 'IZeile, i ist eigentlich blödsinn, aber anders funktioniert es nicht - hier müsste ne andere Zählvariable rein - dann geht es aber irgendwie nicht. :(
Next
End If
Next
Workbooks(sWbName).Saved = True
Workbooks(sWbName).Close
iZeile = iZeile + 1
Next
End Sub
|