Änderung eines Makros
07.01.2005 10:56:23
Ivo
ich habe ein Makro mit dem ich in einem bestimmtem Pfad Dateien mit bestimmten
Namen auslese. Die Dateien sollten eigentlich "Aktuell.xls" heissen, aber
einige User schreiben den Namen teilweise falsch wenn sie eine neue Datei
erstellen. Problem hierbei ist das die Daten dann nicht mit ausgelesen werden
und somit fehlen.
Was kann ich an meinem Makro ändern das z.B. alle Dateien einbezogen werden
die mit "Akt" beginnen?
Danke für eure Hilfe
Ivo
Sub Daten_auslesen()
On Error Resume Next
Dim i As Long, j As Byte
Dim lRow As Long
Const verz = "\\AKA-BERL-001\Homes$"
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "Aktuell.xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
For j = 1 To Sheets.Count
If Left(Sheets(j).Name, 3) = "Abr" Then
Sheets(j).Activate
End If
Next j
Range(Range("A5"), Range("A5").End(xlDown)).EntireRow.Select
Selection.Copy
Workbooks("Mappe1.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
quelle.Saved = True
quelle.Close
Next y
End
Sub