Dateien zählen
Björn Henning
ich möchte einen Zelleneintrag haben, der sich nach der Anzahl der Dateien
in einem Ordner auf dem Desktop richtet. Ist so etwas per Makro möglich?
Gruß Björn
Bernd Held
Sub DateienZählenMitscript()
Dim FSO As New Scripting.FileSystemObject
Dim FolderName As String
Dim FileCount As Long
FolderName = "C:\Windows"
FileCount = FSO.GetFolder(FolderName).Files.Count
Range("A1").Value= FileCount
End Sub
Binde zusätzlich in der Entwicklungsumgebung unter Extras/Verweise die
Bibliothek Microsoft Scripting RunTime library
ein.
Viele Grüße
Bernd
--------------------------------------------------------------------------
Die MacHero EXCEL/WORKS Homepage
http://members.aol.com/Machero
Das Excel-VBA-Kompendium - 9 Leserstimmen zum Buch unter:
http://www.amazon.de/exec/obidos/ASIN/3827258154/qid%3D962263787/sr%3D1-7/028-1377235-0531764
----------------------------------------------------------------------------------------
Björn Henning schrieb:
Jörg Nissen
"Björn Henning" <Bjoern....@t-online.de> schrieb im Newsbeitrag
news:8u4b1j$m97$05$1...@news.t-online.com...
: ich möchte einen Zelleneintrag haben, der sich nach der Anzahl der Dateien
: in einem Ordner auf dem Desktop richtet. Ist so etwas per Makro möglich?
folgende benutzerdefiniert Funktion zählt alle Dateien im angegebenen
Ordner:
Public Function CountFiles(Ordner As String) As Long
With Application.FileSearch
.NewSearch
.Filename = "*.*"
.FileType = msoFileTypeAllFiles
.LookIn = Ordner
.SearchSubFolders = False
CountFiles = .Execute
End With
End Function
mfg
Jörg Nissen
Björn Henning
ich kann mich leider erst heute melden, weil ich die Woche über unterwegs
war. Erst mal danke für die Antwort.
Ich habe mein Makro jetzt folgendermaßen nach deinem Muster geschrieben:
Sub DateienZählenMitscript()
Dim FSO As New StdFont.FileSystemObject
Dim FolderName As String
Dim FileCount As Long
FolderName = "C:\Windows\Desktop\Rechnungen"
FileCount = FSO.GetFolder(FolderName).Files.Count
Range("A1").Value = FileCount
End Sub
Wenn ich jetzt die Schaltfläche für das Makro anklicke kommt aber folgende
Fehlermeldung:
Fehler beim Kompilieren: Typen unverträglich ;und die oben fettgeschriebene
Zeile ist markiert.
Deine vorletzte Zeile mit Range("A1") usw. besagt das A1, das in diese Zelle
das Ergebnis der Zählfunktion geschrieben wird?
Der Foldername ist jetzt so, wie ich ihn brauche, ansonsten habe ich nichts
geändert.
Ich habe auch versucht die Bibliothek einzubinden, habe sie aber nicht
gefunden. Ich habe lediglich in C:\Programme\UninstallInformation die Datei
DXM Runtiome.DAT gefunden.
Wenn ich Extras/Assistent/Verweis... anklicke, bekomme ich den
Verweisassistenten zur Erstellung einer Formel, um Werte am Schnittpunkt von
Spalte und Zeile zu ermitteln.
Also entweder fehlt bei mir etwas oder ich mache etwas falsch.
Vielleicht kannst du mir noch mal helfen.
Gruß Björn
"Bernd Held" <bh...@debis.com> schrieb im Newsbeitrag
news:3A066528...@debis.com...
Björn Henning
ich kann leider jetzt erst antworten, weil ich die Woche über nicht zu hause
war. Habe ich ausprobiert, mir fehlt nur noch, wo ich die Zelle einbaue, in
der die Anzahl der Dateien stehen soll, bei mir wäre das in A1. Wo schreibe
ich das hin?
Gruß Björn
"Jörg Nissen" <joerg....@t-online.de> schrieb im Newsbeitrag
news:8u5t4p$a8t$01$1...@news.t-online.com...
Jörg Nissen
"Björn Henning" <Bjoern....@t-online.de> schrieb im Newsbeitrag
news:8un410$6km$07$1...@news.t-online.com...
: ich kann leider jetzt erst antworten, weil ich die Woche über nicht zu
hause
: war. Habe ich ausprobiert, mir fehlt nur noch, wo ich die Zelle einbaue,
in
: der die Anzahl der Dateien stehen soll, bei mir wäre das in A1.
da es sich um eine Funktion handelt, lautet der Eintrag in A1
=CountFiles("Ordnername")
Wenn Du die Funktion innerhalb eines Makros verwenden willst, geht das über
eine simple Zuweisung
Anzahl = CountFiles("Ordnername")
mfg Jörg
Bernd Held
Du musst in der Entwicklungsumgebung im Menü Extras den Befehl Verweise wählen.
Binde zusätzlich in der Entwicklungsumgebung unter Extras/Verweise die
Bibliothek Microsoft Scripting RunTime library
Die DLL heißt übrigens scrrun.dll.
Viele Grüße
Bernd
--------------------------------------------------------------------------
Die MacHero EXCEL/WORKS Homepage
http://members.aol.com/Machero
Das Excel-VBA-Kompendium - 9 Leserstimmen zum Buch unter:
http://www.amazon.de/exec/obidos/ASIN/3827258154/qid%3D962263787/sr%3D1-7/028-1377235-0531764
----------------------------------------------------------------------------------------
Björn Henning schrieb:
> Hallo Bernd,