Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Anzahl der Dateien in einem Ordner ermitteln

Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 14:57:58
sven
Hallo,
Ich möchte gerne wissen wieviel dateien in einem ordner sind?
Diesen Wert möchte ich dann gerne dazu benutzen, eine schleife so oft durchzulauen zu lassen wie dieser Wert ist.
Am besten mit einer For To-Schleife denke ich mir.
MFG Sven
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:07:24
Eule
Hi Sven
eine von vielen Möglichkeiten:

Sub DateienZaehlenVariante2()
Dim sOrdner As String
Dim intz As Integer
sOrdner = "c:\Temp\*.*"
sOrdner = Dir(sOrdner)
sOrdner = "C:\TEMP"
Do While sOrdner <> ""
intz = intz + 1
sOrdner = Dir()
Loop
MsgBox "Im angegebenen Ordner befinden sich " & _
intz & " Dateien", vbInformation
End Sub

Gruss Eule
Anzeige
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:07:47
MichaV
Hallo,
FileSearch-Objekt
Stellt die Funktionen des Dialogfeldes Öffnen (Menü Datei) dar.
Verwenden des FileSearch-Objekts
Verwenden Sie die FileSearch-Eigenschaft, um das FileSearch-Objekt zurückzugeben. Im folgenden Beispiel wird nach Dateien gesucht, und Anzahl und Namen der gefundenen Dateien werden angezeigt.

With Application.FileSearch
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:11:36
sven
wo kann ich den in deinem beispiele einen festen ordner einbauen?
gruß sven
AW: Anzahl der Dateien in einem Ordner ermitteln
21.11.2005 15:13:29
MichaV
Hallo,
schonmal einen Blick in die Online- Hilfe erwogen?
Beispiel zur LookIn-Eigenschaft
In diesem Beispiel wird der Ordner My Documents nach allen Dateien durchsucht, deren Namen mit cmd beginnt, und Name und Pfad jeder gefundenen Datei wird angezeigt.

Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "cmd*.*"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Anzahl der Dateien in einem Ordner ermitteln


Schritt-für-Schritt-Anleitung

Um die Anzahl der Dateien in einem Ordner zu ermitteln, kannst du VBA (Visual Basic for Applications) in Excel verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code ein:

    Sub DateienZaehlen()
        Dim sOrdner As String
        Dim intz As Integer
        sOrdner = "C:\DeinOrdner\*.*" ' Ändere den Pfad zum gewünschten Ordner
        sOrdner = Dir(sOrdner)
    
        Do While sOrdner <> ""
            intz = intz + 1
            sOrdner = Dir()
        Loop
    
        MsgBox "Im angegebenen Ordner befinden sich " & intz & " Dateien.", vbInformation
    End Sub
  4. Ändere den Pfad C:\DeinOrdner\ zu dem Ordner, dessen Dateien du zählen möchtest.

  5. Drücke F5, um das Skript auszuführen.

Nun wird dir die Anzahl der Dateien in dem Ordner angezeigt!


Häufige Fehler und Lösungen

  • Fehler: „Der Ordner kann nicht gefunden werden“

    • Überprüfe den Pfad, den du im Skript angegeben hast. Stelle sicher, dass der Ordner existiert.
  • Fehler: „Aktueller Ordner ist leer“

    • Achte darauf, dass der ausgewählte Ordner auch tatsächlich Dateien enthält.

Alternative Methoden

Eine alternative Methode, um die anzahl dateien in ordner zu ermitteln, ist die Verwendung des FileSearch-Objekts in VBA. Hier ein Beispiel:

Sub DateienZaehlenMitFileSearch()
    Dim fs As Object
    Set fs = Application.FileSearch
    With fs
        .LookIn = "C:\DeinOrdner" ' Ändere den Pfad zum gewünschten Ordner
        .FileName = "*.*"

        If .Execute() > 0 Then
            MsgBox "Es wurden " & .FoundFiles.Count & " Dateien gefunden."
        Else
            MsgBox "Es wurden keine Dateien gefunden."
        End If
    End With
End Sub

Diese Methode zeigt auch die Namen der gefundenen Dateien an.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die Anzahl der Dateien in einem Ordner zählen kannst:

  1. Zählen in einem spezifischen Benutzerordner:

    sOrdner = "C:\Users\DeinBenutzername\Documents\*.*"
  2. Zählen von spezifischen Dateitypen:

    .FileName = "*.xlsx" ' Zählt nur Excel-Dateien

Tipps für Profis

  • Wenn du regelmäßig die anzahl dateien in ordner überprüfen musst, kannst du eine Schaltfläche in Excel erstellen, die das Skript ausführt.
  • Experimentiere mit verschiedenen Filteroptionen, um gezielt nur bestimmte Dateitypen zu zählen.
  • Halte deine VBA-Projekte organisiert, indem du Kommentare in deinen Code einfügst.

FAQ: Häufige Fragen

1. Wie kann ich die Anzahl der Dateien in einem Ordner unter Windows 10 zählen? Du kannst die oben beschriebenen VBA-Methoden verwenden, um die Anzahl der Dateien in einem Ordner zu ermitteln. Stelle sicher, dass der Pfad korrekt ist.

2. Funktioniert der Code in allen Excel-Versionen? Die gezeigten VBA-Codes sollten in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2016 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige