Office: Zählen von Dateien in verschiedenen Ordnern

Hallo,

ich habe ein bestimmt für euch winziges Einsteigerproblem. Ich habe in VBA Excel ein Makro geschrieben, das bestimmte Dateien in bestimmten Ordnern zählt.


Das funktioniert zwar aber da es zehn Ordner sind habe ich viel Text geschrieben. Ein Bekannter meinte man köönte das mit Schleifen vereinfachen Do until und so.


Also er soll die Ordner Kunden A, Kunden B, Kunden C, Kunden D oder Kunden1, Kunden2 usw. kann ich entweder so oder so benennen.





Mein Programm soll nun diesen Zählprozess so oft durchlaufen wie ich Ordner habe und solange zählen bis z.B. Kunden10!


Dann erfolgt die Ausgabe der Anzahl in ein Worksheet getrennt nach Ordner also für alle ORDNER! lngFileCounter + 1 (Ende der Zählung habe ich über vbNullString definiert!


Wie erreiche ich das jetzt?

Nur eine kurze Denkhilfe!

:)

 

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.

Gruß,
steve1da

 

Hallo Lisa,

schön, das Du den Weg hierher gefunden hast.

Fragen:
a) nur eine Ebene an Kundenordner, d.h. darunter sollen keine Ordner durchsucht werden ?
b) Dateierweiterung ist egal ?
c) Ausgabe im Tabellenblatt mit kompletter Pfadangabe?
d) Du scheibst bis Kunde10; folgt die Ordnerbenennung einem bestimmten Schema?

 

Wie geht das?

 

Verlinken meine ich!

 

a) Nein, Dateipfad habe ich angegeben und darin liegen die Kundenordner, also nur die eine Ebene: Kunde1 Kunde2 Kunde3 usw.
b )xls Dateien, aber das bekomme ich ja hin (die Einzelzählung, also Makro an Makro geht, ich will aber den Code vereinfachen mit Schleifen)
c) Nee, nur die Anzahl
d)Ja Kunde1 Kunde2 usw.

 

Hola,

genau so, wie das jemand schon im VBA-Forum getan hat. Die Links zu den Fragen in den anderen Foren setzen.

Gruß,
steve1da

 

Keine Ahnung, sorry!

 

Hola,

ok, Text kannst du kopieren, Links nicht....

https://www.herber.de/forum/messages/1723561.html

http://www.vba-forum.de/forum/View.a...ien_in_Ordnern

Gruß,
steve1da

 

Code:

Hinweis:

[*]Speichere folgende Zeilen in einer XLSM-Mappe.

[*]lege die Mappe auf erster Ebene ab (Verzeichnis wie Ordner Kunde1)

[*]starte das Makro main; Ergebnisse landen in Tabelle1!A:B

[*]den Zähler musste dann noch einbauen

[*]du bekommst in Spalte A Dateipfad+Dateiname; wenn Du das ändern möchtest, schau dir das FileSyetmObjectModell genauer an

 

Hallo Mase,

konntest du die Gedanken machen?

 

Ups,

das war Gedankenübertragung!

 

Vielen Dank, aber ich glaube das ist nicht das Problem das ich habe! Er soll die Dateien zählen und nur die Zahl ausgeben in ein Worksheet das es schon gibt. Brauche nur eine Schleife diedie Ordnerzahlen als Variable ersetzt und dann jeweils eins hoch zählt. Die Dateien werden in einer anderen Schleife in jedem Ordner gezählt und einzeln ausgegeben!

 

Sub TEST()

Dim strFolder As String
Dim strFile As String
Dim lngFileCounter As Long
Dim lngFileCounter2 As Long
Dim lngFileCounter3 As Long
Dim sPfad As String 'Pfad
Dim Pfad As String
Dim Zähler As Integer
Dim i As Integer



'RLP Gesamt'

Pfad = ActiveWorkbook.Worksheets("TEST").Range("G20").Value

strFolder = Pfad
Zähler = 10



Do Until strFile = Dir$(strFolder & "10*.xls")
strFile = Dir$(strFolder & Zähler & "*.xls")




Zähler = Zähler + 1




Loop

Do Until strFile = vbNullString

For lngFileCounter = 1 To 10
lngFileCounter = lngFileCounter + 1


Next lngFileCounter

strFile = Dir$

Loop


Range("G37").Value = CStr(lngFileCounter)
Range("G38").Value = CStr(lngFileCounter) 'usw.'


End Sub


So das mit den Kunden ist jetzt egal. Nehmen wir an die Ordner heißen 1, 2, 3 usw. Würde ich die Schliefe beim Counter weglassen, dann werden funktioniert das Programm es zählt aber nur die Dateien im letzten Ordner und gibt diese in beiden Zellen aus!

 

Lisa,

schau Dir folgendes an und sag mir, ob Du damit was anfangen kannst.
Code: