Ordnerstruktur erstellen mit VBA

[snb]

Hier haben wir eine 24/7 Wirtschaft

[Ralf A]

Was sagt chatgpt zu Deiner Aussage?

Die durchschnittliche Arbeitszeit in den Niederlanden beträgt 40 Stunden pro Woche1. Die wöchentliche Arbeitszeit kann jedoch variieren, da die Niederlande eine flexible Arbeitszeitpolitik haben. Die maximale Arbeitszeit beträgt 45 Stunden pro Woche2.

Also, immer schön auf dem Teppich bleiben. Auch in den Niederlanden haben Arbeitnehmer Rechte. Auch hier wird logischerweise z. Teil an den Wochenenden gearbeitet, das bedeutet aber nicht, dass das für alle und vorallem nicht ununterbrochen gilt.

[snb]

@RA

Das sind nur artifizielle Behauptungen . Die haben mit der Realität nichts zu schaffen

[RPP63]

Ich finde es gut, dass ihr 24/7 arbeitet!
Vorsicht! Ernst gemeintes Lob an unsere niederländischen Nachbarn, aber dennoch eine Glosse:
Ich finde es gut, dass bei euch 70 % der Flüchtlinge aus der Ukraine Arbeit gefunden haben.
Bei uns wird nach fast 2 Jahren wohl eher darüber diskutiert, welcher Integrationskurs nach dem Integrationskurs, der dem Integrationskurs direkt nach dem Willkommens-Kurs folgte, sinnvoll ist.
Danach, nach Abwägung der Notwendigkeit weiterer Integrationskurse, wird geprüft, welcher Aufbaukurs notwendig sein müsste, um die mittlerweile zu lange Zeit der Beschäftigungslosigkeit zu kompensieren.
Ich habe vor fast 40 Jahren mal in den Niederlanden gearbeitet und fand es faszinierend, wie dort die Zusammenarbeit mit dem Arbeitsamt funktionierte.

Ach so: in Deutschland haben weniger als 20 % der Ukraine-Flüchtlinge einen Job gefunden.
Die sind bestimmt alle faul!

Sorry für das off topic, aber es lag mir auf dem Herzen.

[bigcuno]

Liebe Community. 

Die Sinnhaftigkeit mag vielleicht für viele zu hinterfragen sein.
Pro Arbeitstag werden bis zu 50 Dateien/pro Mitarbeiter abgespeichert - es sind zum Teil börsenaktuelle Preise - daher ist die Suche nach dem Tag für uns die logischste. 

Ich habe mich jetzt durch sämtliche Beiträge gearbeitet und versucht den Input umzusetzen - leider komm ich nicht ganz auf das gewünschte Ergebnis. 

Der Vorschlag von Volti war schon mal ziemlich gut und führt in die gewünschte Richtung.

Code:

Private Declare PtrSafe Function SHCreateDirectoryExW Lib "Shell32.dll" ( _
        ByVal hwnd As LongPtr, ByVal pszPath As LongPtr, ByVal psa As LongPtr) As Long

Sub OrdnerErstellen()
  Dim sHauptordner As String
  Dim oRng As Range
 
  sHauptordner = "C:\Users\npamit\Desktop"

  With ThisWorkbook.Sheets("Tabelle1")
      For Each oRng In .Range("E3:E" & .Cells(.Rows.Count, "E").End(xlUp).Row)
         If oRng.Value <> "" Then
            SHCreateDirectoryExW 0, StrPtr(sHauptordner & "\" & oRng.Value & "\"), 0
'           SHCreateDirectoryExW 0, StrPtr(oRng.Value & "\"), 0     ' oder Angabe kompletter Ordner
         End If
      Next oRng
  End With

  MsgBox "Ordner wurden erstellt!", vbInformation, "Ordner erstellen"

End Sub

Wie kann ich aber nun die Ordnerstruktur integrieren?
Damit eine solche Hierarchie dabei entsteht. 

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Anbei findet ihr auch mein Excel damit es hoffentlich ein wenig klarer wird. 

1. Ebene - 2024 (Ordner des Jahres)
2. Ebene - Jänner (Ordner mit Jänner - Dezember)
3. Ebene - 20240102 (die einzelnen Tage des Monats)

Vielen Dank im Voraus für euren Input. 
LG

[RPP63]

Ich habe mich jetzt durch sämtliche Beiträge gearbeitet und versucht den Input umzusetzen - leider komm ich nicht ganz auf das gewünschte Ergebnis. 

Dann hast Du mein #4 [klick] geflissentlich überlesen …
Wenn Du die Monate in Langform haben willst:

Code:

For Each Zelle In Range(Range("E2"), Range("E2").End(xlDown))
  MakePath "I:\Temp\" & Format(Zelle, "yyyy\\mmmm\\yyymmdd") & "\"
Next

[snb]

Hast du überhaupt https://www.clever-excel-forum.de/Thread...#pid281544 gelesen ?

---

Pro Arbeitstag werden bis zu 50 Dateien/pro Mitarbeiter abgespeichert - es sind zum Teil börsenaktuelle Preise - daher ist die Suche nach dem Tag für uns die logischste. 

Das Papierdenken scheint nicht auszurotten zu sein.

Jeder Dateiname kann die MA-name und Datum enthalten

Code:

G:\OF\Beispiel_Mustermann237_20231206.xlsx

[Ralf A]

...das hatte ich schon im Post #2 vorgeschlagen... 

Pro Arbeitstag 50 Dateien pro Mitarbeiter? Ihr solltet unbedingt Eure Datenstruktur überdenken! EINEN Hauptordner und darin pro Mitarbeiter einen Unterordner (mit allen erforderlichen Daten), das wäre noch akzeptabel, alles andere ist die Vorstufe zum Chaos. Da werdet ihr spätestens beim Versuch der Auswertung nicht mehr froh und glücklich...

Selbst in einer Tabelle mit 1. Mio Tagesdaten lässt sich schnell und genau herausfinden, was am 24.12.22 war.... bei Deiner Struktur wird das ein Krampf...
Wenn Du die Daten dann noch in einer strukturierten Textdatei (welcher Art auch immer) speicherst, gibt es nicht einmal das max. Zeilenlimit von Excel und ließe sich trotzdem mit Excel auswerten...

[schauan]

Hallöchen,

hier nochmal der Ansatz für den Krampf
Ich nutze hier aber nur die Jahreszahl - Zelle mit Jahr benannt - und die Feiertagstabelle - Zellen mit Feiertage benannt. Wochenenden werden im Code, wie Feiertage auch, übersprungen.


  TEST_as.xlsm (Größe: 18,83 KB / Downloads: 4)

[Ralf A]

..wenn man die Dateien mit Mitarbeitername_Tagesdatum benennt, kann man sich auch die Feiertagstabelle und diesen ganzen Schnickschnack sparen, denn es ist wohl davon auszugehen, dass an den Feiertagen oder Wochenenden keiner der Mitarbeiter eine Tabelle erstellen wird... Und um das Tagesdatum zu ermitteln braucht man statt ellenlanger Vorgabentabellen nur eine einzige Anweisung. Das ganze Konstrukt ist nicht im Mindesten konzeptionell durchdacht, dafür aber umständlich bis zum gehtnichtmehr...
Nur, weil es möglich ist, per VBA Ordner und Subordner zu erstellen, muss das noch lange nicht sinnvoll sein... Oft ist weniger eben mehr... 
Doch was soll's? Ich muss ja nicht damit arbeiten...