Code Beschleunigen oder Ladebalken

Hallo zusammen,
hat einer eine Idee wie ich folgenden Code Beschleunigen kann oder es Visuell besser Darstellen kann.
Jedes mal wenn ich diesen Code Aufrufe und es mehr wie 500 Dateien auszulesen sind, sieht es so aus als würde excel sich aufhängen.
Ich glaube am Code selber kann man nicht verbessern, der Prozess geht nun mal so schnell wie die Rechen Power / Netzwerk usw. nun mal ist.
Kann man aber so ein Ladebalken oder irgendwas Visuelles integrieren ?
Sub Fail_zählen_Zeitraum()
'Zählt die Dateien vom Angegebenen Start/End Datum
On Error GoTo Variante
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("I8").Value 'Start Datum
datEnde = ActiveSheet.Range("I9").Value 'End Datum
Set fso = CreateObject("Scripting.FileSystemObject")
For Each fsf In fso.getFolder([U3] & [I7]).Files 'pfad steht auf U3 & L7
'Dateidatum ohne Uhrzeit ermitteln
datDatei = CDate(Format(fsf.datelastmodified, "DD-MM-YYYY"))
If datDatei >= datStart And datDatei iCount = iCount + 1
End If
Next
ActiveSheet.Range("B2") = iCount 'Da wird der Counter niedergeschrieben
Set fso = Nothing
Exit Sub
Gruß
Manuela

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub iFen() Dim Tag As Date fn = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & ThisWorkbook.Path & "\* _ .*""").stdout.readall, vbCrLf), "= Cells(1, 2) And Tag Falls es Umlaute in Pfad- bzw Dateinamen geben sollte, ist eine Ergänzung notwendig. mfg (Code von snb, etwas angepasst)

Sub iFen() Dim Tag As Date fn = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & ThisWorkbook.Path & "\* _ .*""").stdout.readall, vbCrLf), "GROESSER ZeichenDIRkleiner Zeichen", False)

Sub iFen() Dim Tag As Date fn = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & ThisWorkbook.Path & "\* _ .*""").stdout.readall, vbCrLf), "&ltDIR&gt", False) For i = 3 To UBound(fn) 'Anfangsdatum: B1; EndDatum in B2 If InStr(1, fn(i), ".") = 3 Then Tag = CDate(Left(fn(i), 10)) If Tag >= Cells(1, 2) And Tag

Sub Fail_zählen() 'Ab Version 2.6 die zählung über cmd, geht viel schneller 'Zählt in der Userform den Inhalt der Variante im Ordner '### Dateien im Fail Ordner Zählen ### Dim Tag As Date sPath = [U3] & [I7] fn = Filter(Split(CreateObject("wscript.shell").exec _ ("cmd /c Dir """ & sPath & "\*.txt").stdout.readall, vbCrLf), "", False) For i = 3 To UBound(fn) 'Anfangsdatum: I8; EndDatum in I9 ##Erst runter dann rechts eingeben If InStr(1, fn(i), ".") = 3 Then Tag = CDate(Left(fn(i), 10)) If Tag >= "01.01.2000" And Tag

Sub Fail_zählen_Zeitraum() 'Ab Version 2.6 die zählung über cmd, geht viel schneller Dim Tag As Date sPath = [U3] & [I7] fn = Filter(Split(CreateObject("wscript.shell").exec _ ("cmd /c Dir """ & sPath & "\*.txt").stdout.readall, vbCrLf), "", False) For i = 3 To UBound(fn) 'Anfangsdatum: I8; EndDatum in I9 ##Erst runter dann rechts eingeben If InStr(1, fn(i), ".") = 3 Then Tag = CDate(Left(fn(i), 10)) If Tag >= Cells(8, 9) And Tag

Beliebteste Forumthreads (12 Monate)

Code Beschleunigen oder Ladebalken

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code Beschleunigen oder Ladebalken

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread