Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Deiteien im Ordner zählen vom Zeitraum

Deiteien im Ordner zählen vom Zeitraum
17.01.2018 09:50:42
Manuela
Hallo zusammen,
ich habe ein Code der mir die Daten in einem Verzeichnis Zählt.
Kann mir einer denn Code Umbauen das nut die Dateien von einem Zeitraum gezählt werden.
z.B.: ich schreibe in A1 & A2 denn Zeitraum
A1 = 15.01.2018
A2 = 17.01.2018
Und somit würde es mir nicht den Kompletten Ordnerinhalt zählen, sondern eben nur von A1 bis A2 (Zeitraum).
Sub pass_Daten_zählen()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
ActiveSheet.Range("N11") = fso.GetFolder([U4] & [L26]).Files.Count
'pfad steht auf U4 & L26
Set fso = Nothing
End Sub

Danke schon mal im vorraus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Deiteien im Ordner zählen vom Zeitraum
17.01.2018 10:46:14
fcs
Hallo Manuela,
hier dein Makro entsprechend angepasst.
Gruß
Franz
Sub pass_Daten_zählen()
Dim fso As Object
Dim fsf As Variant
Dim datStart As Date, datEnde As Date, datDatei As Date
Dim iCount As Integer
datStart = ActiveSheet.Range("A1").Value
datEnde = ActiveSheet.Range("A2").Value
Set fso = CreateObject("Scripting.FileSystemObject")
'pfad steht auf U4 & L26
For Each fsf In fso.getFolder([U4] & [L26]).Files
'Dateidatum ohne Uhrzeit ermitteln
datDatei = CDate(Format(fsf.datelastmodified, "YYYY-MM-DD"))
If datDatei >= datStart And datDatei 

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige