Office: Zählen von Dateien in verschiedenen Ordnern

Eben noch gesehen und oben gleich geändert; kannst den Code von oben nochmal versuchen *rolleyes.gif*

 

Das hatte mich verwirrt. Jetzt ist es wieder so wie vorher! Ich teste es gleich!

 

Wow, das geht jetzt! So jetzt befinden sich aber noch andere Ordner in dem SubFolder, die er nicht mitzählen soll!

Und ein Ordner Gesamt, denn er aber mitzählen soll. Ansonsten heißen die Ordner
z.B. 10,11,12, aber Haus und Maus und andere soll er nicht mitzählen!

Mir ist klar, dass das mit If geht, aber ich weiß nicht wie ich die Variablen setzen soll und die Kriterien wann er zählt und wann nicht!

 

Ich bin aber schon ein ganzes Stück weiter, danke!

 

Prima; Meilenstein erreicht.

Nach welchen Merkmalen möchtest Du Ordnernamen:
a) zählen
b) nicht zählen

 

Ach es ändert sich oft der Pfad, aber die Ordner die gezählt werden müssen sind immer die gleichen: z.B. Gesamt, 11,12,13,14,15,16,17,18.

Ist doch dann einfacher, oder? For each oSubFolder In oFolder.SubFolders die eben 11 oder 12 oder 13 ... heißen!

Verstehe ich das richtig: das erstellte Object hat die Funktion die Ordner in einen "Zwischenspeicher zu laden" und übergibt sie dann zum zählen?

 

Ordnernamen mit Zahlen erkennen:
Code:

liefert 'Wahr', wenn der Ordnername aus Zahlen besteht

Ordner Gesamt erkennen:
Code:

 

Habe mich wieder unklar ausgedrückt:

Es sind nur die zehn Zahlen und der Ordner Gesamt zu zählen alle anderen nicht!
Da gibt es noch 5 und 7 oder "Haus" etc.



Und stimmt das was ich mir wegen der CreateObject denke?

 

Sind Sie denn morgen nochmal online? Wäre toll! DANKE!

 

Denke ja, falls nicht schon geholfen wurde *wink.gif*

 

Ok! habe einen Teil selbst gelöst:
If oSubFolder.Name = "11" Then

Debug .Print "Ordername...

Exit For
End If
Next

....

Aber jetzt will ich: If oSubFolder.Name ="11" or oSubFolder.Name ="12" usw. then...

er zählt nur die Anzahl im ersten Ordner! Warum? Was ist jetzt wieder falsch?

 

Select Case? Aber wie

 

Code:

 

Haber den Fehler in meiner Datei gefunden:
(Grundlage ist Ihre Datei von vorhin)

If oSubFolder.Name = "11"or oSubFolder.Name = "12" or oSubFolder.Name = "13" or oSubFolder.Name ="14" usw. Then

Debug .Print "Ordername...

Exit For --> streichen, dann geht es!!
End If
Next

Jetzt gibt er nur für die definierten Ordner die Anzahl aus!

So, jetzt muss ich noch das Debug.Print ersetzen: Er soll die Anzahl in verschiedenen Zellen ausgeben, z.B. "C3", "D8", "F18" usw.


Könnte man anstatt 11,12 usw. auch Variablen setzen und mit 11 beginnen und mit z.B. 20 enden! also über eine Schleife die oSubFolder.Name = 11 ersetzt in eine Variable

i=9
i=11+1
also 9 mal durchlaufen und dann Ende bei 20!
Das möchte ich nur, das ich das langsam mal lerne und beim nächsten Programm nicht wieder alles fragen muss!

 

Klar geht das, wenn man es richtig macht, Lisa *wink.gif*

Probieren geht über studieren ...