dieses Riesen-Makro (von Bert Körn):
https://www.herber.de/bbs/user/24267.xls
wollte ich auf die Dateien-zählung (ohne die Dateien zu Listen) kürzen.
Dabei rausgekommen ist das hier:
Die Datei https://www.herber.de/bbs/user/24268.xls wurde aus Datenschutzgründen gelöscht
-es werden nur die Verzeichnisse gezählt
-das Makro schmiert ab, wenn bestimmte Datei-namen kommen
Meine Ziele:
-ich möchte den Pfad per Zell-Inhalt anliefern
-ich möchte einen Such-Filter setzen
-ich möchte das das Makro zeilenweise arbeitet
Hier ist der Code (zum großteil von mir zusammengewurschtelt) wie ich Dateien listen lasse. Aber wie gesagt jetzt brauche ich nur noch die Zahl der Dateien.
Sub b2_DateienFinden_X()
Sheets("alle_gebookmarkt").Select
Sheets("alle_gebookmarkt").Hyperlinks.Delete
Range("a2:a60000").ClearContents
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = Sheets("Suchparameter").Range("C3").Value
.SearchSubFolders = True
.Filename = Sheets("Suchparameter").Range("C4").Value
.Execute
For i = 1 To .FoundFiles.Count
Sheets("alle_gebookmarkt").Cells(i + 1, 1) = cutter(.FoundFiles(i))
Next
End With
'MsgBox ("Die Dateien von X wurden ausgelesen")
End Sub
Private Function cutter(Pfad As String) As String
Dim l As Integer
l = InStrRev(Pfad, "\") + 1
cutter = Mid(Pfad, l, 100)
End Function
Achja, bitte könnt ihr Eure Vorschläge reichhaltig dokumentieren, damit ich etwas dabei lerne.
Danke.
Servus,
Anton