vorhandene Schleife erweitern

[Gast 123]

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

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 anfangen

---

Nacvhtrag  Sollte es trotzdem nicht klappen sich bitte nach dem Codeteil über eine MsgBox den Pfad2 noch mal in allen Details genau anschauen.

[perostojkov]

---

Sollte es trotzdem nicht klappen sich bitte nach dem Codeteil über eine MsgBox den Pfad2 noch mal in allen Details genau anschauen.

Hallo Gast123,
ich bekomme ne Fehlermeldung:

Ungültiger Prozeduraufruf oder ungültiges Argument (Fehler 5)

Code:

Endung = Mid(arr(a), InStrRev(arr(a), "."))  'ist im Array Name mit enthalten!!

    ist gelb markiert

LG perostojkov

[steve1da]

Zur Info:
https://www.herber.de/forum/archiv/1852t...itern.html

[perostojkov]

Hallo, ich möchte euch informieren, dass ich mein  Problem auch hier gepostet habe und gerade gelöst wurde.

https://www.herber.de/forum/messages/1853459.html

Auch wenn nicht schön, ich bin damit zufrieden, kann hier geschlossen werden.

VIELEN DANK, sorry falls doppeltposting nicht erlaubt ist

LG perostojkov