Dateianzahl von Dateitypen mit while Schleife bestimmen

[Nora Fernandez]

Hallo liebe Excel-Freunde,

ich möchte mit folgendem Code die  die Anzahl der  *.Text, *.xls und *.doc Dateien im Verzeichnis Neu bestimmen:

Code:

Sub Anzahl_der_Dateien()
Dim b
b = 1
While Dir("C:\Neu\*") <> ""
b = b + 4
Wend

End Sub

Wie muss ich meinen Code bei "while" anpassen, damit dieser mir für die jeweilige Dateiendung das richtige Ergebnis liefert.

Vielen Dank für eure Bemühungen im voraus.

Nora

[Fennek]

Wie wäre es hiermit:
Sub myDir
Range("a1").select
Activecell.value = dir (c:\temp\*.txt)
Check = true
While check
Activecell.offset(1,0).select
Activecell.value = dir()
IF activecell.value ="" then check = false
Wend
End sub

Für *.xls dann analog

[RPP63]

Hallo Nora!
Dies ist bereits der dritte Thread, in dem Du vernünftige Antworten erhältst, Du aber ein Feedback offensichtlich nicht für notwendig erachtest!

Stelle Dir mal vor,
Du fragst einen Passanten nach dem Weg,
dieser erteilt Dir freundlich Auskunft,
Du drehst Dich wortlos um und gehst los ...

Einmal probiere ich es noch ...

Sub DateienZaehlen()
    Dim strOrdnerName As String
    Dim strName As String
    Dim intz As Integer
        strOrdnerName = "C:\Users\RalfP\Downloads\"
        strName = Dir(strOrdnerName & "*.xls*")
        Do While strName <> ""
            strName = Dir
            intz = intz + 1
        Loop
        MsgBox "Anzahl der Excel-Dateien: " & intz
End Sub

Gruß und Hoffnung auf Besserung Deinerseits

Ralf

[Nora Fernandez]

Hallo Ralf und Fennek,

selbstverständlich bedanke ich mich gerne für eure Hilfe. Aber für
mich sind die Foren etwas absolut Neues. Ich hatte schon letztes
Mal den Danke Button bei Dir gedrückt. Leider habe ich wohl etwas
falsch gemacht und es gab kein Feedback.

Also nochmals vielen Dank für eure Unterstützung und
einen schönen Abend.

Gruß
Nora

[RPP63]

Alles klar, Nora!

Sehe es so:
Diese Threads werden ja nicht gelöscht sondern dienen Leuten, die mit einer Suchmaschine ein Problem lösen wollen, als Vorlage.
Denen hilft es ungemein, wenn ein Feedback des Erstellers erfolgt.
(Muss ja nicht unbedingt positiv sein, ein "Klappt nicht, Makro läuft in den Laufzeitfehler 13!" hilft auch)

Außerdem ist ein abschließendes Feedback auch ein Hinweis an die anderen Helfer, sich nicht mehr mit der Problematik beschäftigen zu brauchen.
(Im übrigen ist der "Danke-Button" nicht angekommen, da lege ich aber auch nicht unbedingt Wert drauf, eine Antwort ist mir wichtiger)

In diesem Sinne
wünsche ich Dir ebenfalls einen schönen Abend!

Ralf