24.10.2021, 11:20
Hallo
du hast Recht, warum kompliziert machen wenn es viel einfacher geht? Probiere bitte mal diesen Codeteil aus.
Die Dateiendung ist doch im Array Name mit enthalten. Kann man mit dem Befehl StrRev leicht generieren!!
mfg Gast 123
Nacvhtrag Sollte es trotzdem nicht klappen sich bitte nach dem Codeteil über eine MsgBox den Pfad2 noch mal in allen Details genau anschauen.
du hast Recht, warum kompliziert machen wenn es viel einfacher geht? Probiere bitte mal diesen Codeteil aus.
Die Dateiendung ist doch im Array Name mit enthalten. Kann man mit dem Befehl StrRev leicht generieren!!
mfg Gast 123
Code:
For a = 1 To UBound(arr)
For monat = 1 To 12
Endung = Mid(arr(a), InStrRev(arr(a), ".")) 'ist im Array Name mit enthalten!!
pfad2 = pfad1 & arr(a) & "\" & IIf(monat < 10, "0" & monat, monat) & "\" & datei & Endung 'Gesamt-Pfad wenn unterordner 1-10 mit 0 anfangenNacvhtrag Sollte es trotzdem nicht klappen sich bitte nach dem Codeteil über eine MsgBox den Pfad2 noch mal in allen Details genau anschauen.