auslesen von Daten
12.07.2004 13:32:51
Daten
kann mir jemand helfen? Ich möchte jewalls einen Wert aus allen 477 Sheets einer Mappe in ein einziges Sheet untereinander listen. Ich habe auch schon eine Makro so wie ich es bisher verwendet habe. Dieses Makro kopiert aber aus allen Mappen in Ordner und Unterordnern in ein Sheet. Diese Sheets sind nun aber schon in einer Mappe und da soll nur noch die Werte in ein Sheet übertragen werden.
Wer kann mir da helfen? Das Makro soll genau das gleiche tun wie das Makro unten, eben nur die Blätter durchsuchen in der einen Mappe und nicht die Mappen und Sheets suchen.
Danke
Sub auslesen()
On Error Resume Next
Dim i As Long
Const verz = "C:\Neuer Ordner\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i))
ThisWorkbook.Worksheets("Tabelle1").[B65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("Auswertung").[H65536].End(xlUp)
quelle.Saved = True
quelle.Close
Next i
End Sub