Ordnerstruktur erstellen mit VBA

[schauan]

Hallöchen,

ob pro Tag und Mitarbeiter bis zu 50 Dateien in dieser Struktur notwendig sind, sei mal dahingestellt.
Die 50 Dateien müssen ja auch nicht nur Exceldateien mit Tabellen sein - war jedenfalls nicht so beschrieben. Wer weiß, was da alles rein kommen kann. Vielleicht sind da signierte pdf dabei, Screenshots, Word-Dateien, Powerpoints, ...
Vielleicht werden über die Ordnerstruktur später systemseitig Berechtigungen gesetzt sodass man nur auf bestimmte Zeiträume zugreifen kann, die Navigation erleichtert (ist aus meiner Erfahrung gar nicht so selten), ...

Ist auf jeden Fall wichtig, auf bessere Strukturen usw hinzuweisen - kann man ellenlang drüber diskutieren, manch einer muss ist aber nicht durch "graue" Theorie zu überzeugen. Der code ist nicht ganz so ellenlang, hat abzüglich von Leerzeilen nur 13 Zeilen

[Ralf A]

...ob 13 Zeilen Code + unnötige Feiertags- und Arbeitstagstabelle... ob pdf, txt, csv, bmp oder welcher Dateityp auch immer... das ändert nichts an der bisherigen Organistion ....

[schauan]

... Ich hab keine Arbeitstag Tabelle drin und warum soll man Feiertage programmieren wenn die schon per Formel ermittelt werden...

[bigcuno]

... Ich hab keine Arbeitstag Tabelle drin und warum soll man Feiertage programmieren wenn die schon per Formel ermittelt werden...

weil ich mir nicht sicher war ob hier auch die österreichischen Feiertage oder die Deutschen herangezogen werden.

[schauan]

... Deine Feiertagstabelle benutze ich

[snb]

Feiertage in A1:A50

Code:

Sub M_snb()
  With CreateObject("shell.application").Namespace("G:\")
    For j = DateSerial(2024, 1, 1) To DateSerial(2025, 1, 0)
       If (Weekday(j, 2) < 6) * (UBound(Filter([transpose(A1:A50)], CLng(j))) = -1) Then .NewFolder Format(j, "yyyy\mm\dd")
    Next
  End With
End Sub

[EarlFred]

Wozu die vielen Codezeilen?

Code:

Sub M_snb()
For j = 1 To DatePart("y", DateSerial(2025, 1, 0)): If (Weekday(DateSerial(2024, 1, j), 2) < 6) * (UBound(Filter([transpose(A1:A50)], CLng(DateSerial(2024, 1, j)))) = -1) Then CreateObject("shell.application").Namespace("G:\").NewFolder Format(DateSerial(2024, 1, j), "yyyy\mm\dd"): Next
End Sub

[schauan]

Hallöchen,

mit

PHP-Code:

CreateObject("shell.application").Namespace("G:\").NewFolder 


in der Schleife würde ich tippen, dass da im Jahr >200 Objekte erstellt werden ...

Ansonsten, wenn ich nix übersehen habe, beide Codes berücksichtigen die Feiertage nicht. (edit: hatte doch was übersehen ...)
Durch die Übernahme des Jahres aus dem Blatt muss man später den Code nicht ändern.
Konsequenterweise könnte man auch das Startverzeichnis über das Blatt verdrahten und ggf. sicherheitshalber eine Prüfung einbauen, ob selbiges vorhanden ist.

[EarlFred]

In der Schleife würde ich tippen, dass da im Jahr >200 Objekte erstellt werden ...

Ich dachte nicht, dass ich das als Ironie hätte kennzeichnen müssen...

[bigcuno]

Hallo an alle fleißigen Helfer, 

vielen Dank für die ausgesprochen professionelle Hilfe! 

@schauan: dein Code klappt einwandfrei. 

Bin begeistert über die Kürze des Codes - ich muss noch viel lernen.

---

Hab mich noch ein wenig gespielt. 

Anbei meine Version - vielleicht hilft es jemanden der Ähnliches sucht.  

LG