Office: Zählen von Dateien in verschiedenen Ordnern

Ok! Melde mich morgen wieder!

Aber noch ein letzter Tippp

Wenn ich statt Print...

Range("F40") = oSubFolder.Files.Count
Range("H87")= oSubFolder.Files.Count


eingebe, gibt er in beiden Zellen das Ergebnis der letzten or Anweisung aus!

Wie erreiche ich, das er für jede or Anweisung (Zählung) in einer eigenen Range ausgibt?


Das wäre es für heute! DANKE!

 

Keiner da? Mase?

 

Hallo Lisa,

du hast doch schon in deinem ersten Code einen Zähler erstellt. Du brauchst doch bloß in der Schleife für jede gefundene Datei einen Zähler erhöhen, der dann als Offset in der Range verwendet wird.

Ulrich

 

Zähler? Habe eine Schleife verwendet! Ich verstehe es nicht, sorry! *rolleyes.gif* *rolleyes.gif* *eek.gif*

 

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.

 

Hola,

ist das nicht das gleiche wie hier?

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

Gruß,
steve1da

 

Doch, ich weiß, verlinken!

 

Habe es:

i=10
For Each oSubFolder...

i=i+1
Debug.Print "ZAHL" & oSubFolder.Files.Count
Range ("G" & i).Value = oSubFolders.Files.Count

... usw.

Leider liegen die Zellen nicht nebeneinander. Jetzt muss ich weiterüberlegen wie ich das mache!

 

Hallo Lisa,

du könntest jetzt genauso nochmal mit if alles abfragen und dann den Zielbereich für die Ausgabe zuweisen.

Aber das geht doch alles in eine völlig falsche Richtung, wenn du solche Abgängigkeiten direkt in deinen Code einbaust. Ich glaube, deinen Ansatz solltest du nochmal überdenken.

Erstelle ein Tabelle, welche den Namen des Startordners enthält und die Namen der zu prüfenden Unterordner. Ein Makro könnte dann diese Informationen lesen, die Anzahl der Dateien ermitteln und dann in die Tabelle an der richtigen Stelle wieder ausgeben.
In deinen anderen Tabellen würdest du dann auf diese Werte verweisen und diese Verweise könnten dann auch überall verstreut sein.
Das wäre dann flexibel und viel einfacher umzusetzen.

Ulrich

 

Das ist kompliziert! Das überfordert mich als Anfängerin!

 

Außerdem kann ich nicht die Reihenfolge der Ausgabe bestimmen. Er soll mit dem Ordner "Gesamt" anfangen, fängt aber immer mit "11" an, dann alle Zahlen und am Schluss "Gesamt"!

 

Das mit den Stellen habe ich hinbekommen, da es immer die Spalte + 6 ist!

Aber keine Ahnung wie ich die Reihenfolge festlege!

 

So! Alles selbst geschafft!

Ich habe jetzt mehrer If Abfragen:

If blablabla Then
Range blabla
End If

If Blabla Then
Range blabla
End If

Die Ranges sind immer andere Spalten. Kann man diese If zusammen fassen, so dass ich weniger Code bezweifle. Platz brauche?

 

Hi Lisa,

poste mal Dein Finalkonstrukt.

 

Hallo Lisa,

Nein, schau mal hier, wie ich das gemeint habe: