Funktion aktualisieren
29.11.2022 18:17:38
Lapos
Das ganze funktioniert auch solange man die Funktion in der Zelle mit Enter bestätigt.
Ist es irgendwie möglich das die Funktion ständig automatisch prüft ? Oder das man es ähnlich dem "Daten aktualisieren" anlegen kann?
Zelle eingabe von =DateienZählen("[Verzeichnis]")
Function DateienZählen(verz As String) As Integer
Dim datName As String
Dim counter As Integer
If Right(Trim(verz), 1) "\" Then verz = Trim(verz) & "\"
such = verz & "*"
On Error GoTo fehler
ChDir verz 'testen, ob das Verzeichnis existiert
datName = Dir(such, 7) 'ersten Eintrag
Do While datName ""
counter = counter + 1
datName = Dir 'nächster Eintrag
Loop
DateienZählen = counter
Exit Function
fehler:
DateienZählen = -1 'Verzeichnis existiert nicht
End Function