Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vorhandene Schleife erweitern

vorhandene Schleife erweitern
25.10.2021 17:30:38
perostojkov
Hallo, sorry falls man nicht darf, aber ich möchte mein Problem so schnell wie es geht lösen.
Es geht um eine Schleife die erweiterr werden soll.
ich habe mein Problem hier gepostet:
https://www.clever-excel-forum.de/Thread-vorhandene-Schleife-erweitern
sorry dass ich so ungeduldig bin und bitte nicht schimpfen, falls es nicht in Ordnung ist doppelt zu posten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vorhandene Schleife erweitern
25.10.2021 17:49:22
Yal
Hallo Perostojkov,
Crossposting ist an sich nicht verboten, man muss es nur erwähnen. Somit hast Du es richtig gemacht.
Ich gehe davon aus, dass eine Datei entweder xls oder xlsx oder xlsm aber nie mehr als nur eins davon vorkommt.
In Schleife 3 müsste folgendes stehen:

For a = 1 To UBound(arr)
For monat = 1 To 12
pfad2 = pfad1 & arr(a) & "\" & Format(monat, "00") & "\" & datei & ".xls"      'Gesamt-Pfad wenn unterordner 1-10 mit  0 anfangen
Name1 = Dir(pfad2)
If Name1 = "" Then
pfad2 = Replace(pfad2, ".xls", ".xlsx")
Name1 = Dir(pfad2)
End If
If Name1 = "" Then
pfad2 = Replace(pfad2, ".xlsx", "xlsm")
Name1 = Dir(pfad2)
End If
If Name1  "" Then
Nicht besonders schön aber schön nachvollziehbar.
VG
Yal
Anzeige
AW: vorhandene Schleife erweitern
25.10.2021 19:03:16
perostojkov
PERFEKT
Der fehlende Punkt vor "xlsm" hat mich zum schwitzen gebracht
VIELEN VIELEN DANK YAL
LG perostojkov
Habe geschlampert, sorry :-). owT
25.10.2021 21:18:30
Yal

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige