Do Until ... Schleife
30.12.2020 18:21:15
Andl
ich habe einen VBA Code gebastelt, welcher im Dateinahmen hochzählende dateien öffnet und deren Inhalt
in die aktive Tabelle einspielt.
Nun möchte ich gerne hierfür eine Do Until...Loop anweisung erststellen, welche mir, wenn eine keine zu öffnende Datei mehr gefunden wird eine Message Box ausgibt.
Ich denke hierzu benötige ich eine Wahr oder Falsch-Bedingung - wenn er keine neue Datei mehr findet...
Set Quelle = Workbooks.Open(ThisWorkbook.Path & "\" & NächsteListenNummer6stellig + 1 & ".xlsx")
Leider fehlt mir hier Ansatz?
beste grüße und danke
Andl