brauche bitte eure Hilfe, um folgenden Code zu ergänzen:
Sub Dateianzahl()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFolder("X:\Vertrieb").Files.Count
Set fso = Nothing
End Sub
Der Code zählt die Dateien, die in dem angegebenen Verzeichnis liegen. Die Angabe darüber würde ich gerne im Tabellenblatt "DB" in der Zelle "R6" wiedergeben.
Bekomme das nur mit einer Schaltfläche hin und das schaut nicht so schön aus,
bin mir sicher irgendwie kann ich das auch direkt in der Zelle wiedergeben?
Danke vorab
Gruß Andreas
: