Registriert seit: 05.12.2014
Version(en): 2010-2013
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
Registriert seit: 06.12.2015
Version(en): 2016
16.12.2015, 17:43
(Dieser Beitrag wurde zuletzt bearbeitet: 16.12.2015, 17:59 von Zwergel.
Bearbeitungsgrund: unnützes Zitat entfernt
)
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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
16.12.2015, 18:50
(Dieser Beitrag wurde zuletzt bearbeitet: 16.12.2015, 18:50 von 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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 05.12.2014
Version(en): 2010-2013
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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
16.12.2015, 19:43
(Dieser Beitrag wurde zuletzt bearbeitet: 16.12.2015, 19:43 von 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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)