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?
|