Wert auslesen/kopieren
07.07.2004 17:51:49
Thomas
kann mir jemand bei einem argen Problem helfen?
Ich habe einen Ordner mit sehr vielen Unterordnern. In diesen Unterordnern befinden sich xls Dateien (unterschiedliche Anzahl je Ordner).
Ich möchte nun einen einzigen Wert einer einzigen Zelle aus jeden xls Mappen in eine andere Mappe untereinander kopieren. Ich habe dafür auch schon ein Makro das so auch ohne Probleme läuft.
Sub auslesen()
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(2).[E24]
quelle.Saved = True
quelle.Close
Next i
End Sub
Jetzt habe ich aber ein Problem!!!
Der Wert steht nicht immer in der Zelle E24. E24 ist die Summe aus E2 - E23. Nun kommt es vor das mehr Eingaben in Spalte E gemacht werden als bis Zeile 23,
also verschiebt sich die Zelle mit der Summe nach unten.
Das heißt, ich kann die Zelle nicht auf E24 festsetzen weil mir dann ein falscher Wert kopiert wird.
Kann mir jemand mein Makro so verändern das ich den letzten Wert der Spalte auslese (kopiere), (haut ja dann auch hin ob E24 oder E100), so das ich nicht die Zelle genau bestimme?
Besten Dank
Thomas