Excel kann nicht zählen
09.05.2005 17:52:45
Dirk
Ach Mensch immer diese kleinen Hürden vielleicht weiß ja jemand rat?!
Hier erst einmal der Code:
Private Sub UserForm_Initialize()
Dim verz As Variant
verz = "C:\bilder\"
With Application.FileSearch
.Filename = "*.jpg"
.LookIn = verz
.Execute
TextBox1.Value = .FoundFiles.Count
End With
End Sub
So hier das Problem Excel zählt nur einmal durch, angenommen ich erstelle den Ordner Bilder und packe drei hinein, dann führe ich dass Makro aus und er sagt es sind drei jpg Dateien in dem Ordner. So weit so gut, packe ich aber weitere drei Bilder in den Ordner und führe dann das Makro aus sagt excel immer noch es seien nur 3 Dateien vorhanden?
Weiß jemand Rat?
Viele Grüße
Dirk