DAten aus mehreren Excel Files auslesen zum 2.
22.11.2004 16:51:13
Stefan
erstmal vielen Dank für die Hilfe zu meinem Problemen beim auslesen von mehreren Files.
Mithilfe der Recherche habe ich mir mitlerweile ein Macro geschrieben, welches mir alle benötigten Daten ausliest.
Nun habe ich folgendes Problem:
Mit
Sub Daten_suchen()
Dim FS As FileSearch, wsh1 As Worksheet, i As Integer, q, c, t, h As String
Set wsh1 = ThisWorkbook.Sheets(1)
Set FS = Application.FileSearch
Let q = 5
Let h = ";"
With FS
.LookIn = ThisWorkbook.Path
.Filename = "*.xls"
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Sheets(1).Select
If Range("A1") = "Abrechnung" Then
öffne ich alle *.xls in den Unterordnern meiner Datei. Nun kommt es vor, dass das sheet(1) eine Diagrammseite ist. Hier steigt mein Macro aus, weil es die Zelle A1 nicht findet. Gibt es eine Möglichkeit anders zu Überprüfen, ob in der Zelle A1 in der geöffneten Datei auf dem Sheet "Erfassung" (immer das erste sheet der Datei) der Wert "Abrechnung" steht? Es gibt aber auch Dateien, welche keine Tabelle "Erfassung" haben
Vielen Dank schon mal im Voraus
Gruß Stefan