Do until mit Bedingung

Forumthread: Do until mit Bedingung

12.06.2018 06:53:12

Felix

Hallo zusammen,
ich bräuchte Hilfestellung bei folgender Funktion:
Die folgende Schleife zieht einzelne Verzeichnisnamen (Exceldateien) in ein Array.
Dabei handelt es sich um ein Verzeichnis mit Dateien von 1000-7000. (alle Dateinamen beginnen mit einer vierstelligen Zahl)
Ist es möglich eine Do-Until so zu programmieren, dass er aus dem Verzeichnis beispielsweise nur die Nummern 2990, 3004, 3240) gezogen werden?
Hier der Code:
https://www.herber.de/bbs/user/122052.txt
Vielen Dank
MFG
Felix

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Do until mit Bedingung

12.06.2018 07:01:09

MCO
AW: Do until mit Bedingung

12.06.2018 07:40:36

Felix
AW: Do until mit Bedingung

12.06.2018 14:51:23

Felix
Guter Rat ist teuer....

13.06.2018 13:44:21

EtoPHG
AW: Guter Rat ist teuer....

13.06.2018 14:02:52

Schmali
Das hilft so wenig, wie vorherige Kommentare! owT

15.06.2018 13:28:50

EtoPHG

AW: Do until mit Bedingung

12.06.2018 07:01:09

MCO

Moin Felix!
Sicher, du kannst mit if wieder die Zahl abfragen.

if left(Dateiname,4)="2990" _
or left(Dateiname,4)="3004" _
or left(Dateiname,4)="3240" then
end if

Das ganze innerhalb des loops sollte den Erfolg bringen.
Gruß, MCO

AW: Do until mit Bedingung

12.06.2018 07:40:36

Felix

Hallo MCO,
danke schonmal,
ist auch ein Einbinden möglich, so dass man vorne A (für alle) eingibt, und dann zB nur die Nummern
oben ausgeführt werden, automatisiert hintereinander?
Danke
Gruß

AW: Do until mit Bedingung

12.06.2018 14:51:23

Felix

Weiß jemand Rat?
Vielen Dank

Guter Rat ist teuer....

13.06.2018 13:44:21

EtoPHG

Hallo,
Der gute Rat: Erläutere dein Problem, so dass es verständlich wird!
Was ist A, was soll das Ganze?
Gruess Hansueli

AW: Guter Rat ist teuer....

13.06.2018 14:02:52

Schmali

Hallo EtoPHG,
sorry wenn das jetzt nicht klar wurde...
Anbei noch die Maske in Excel, leider wegen Größenproblemen nicht hochzuladen.
Es geht darum durch das A für Alle vorne in der Excel, beispielsweise nur die Buchungskreise/Dateinamen 1001 1002 1003 aus dem Ordner auszuwählen.
Private Sub cmdProcess_Click()
'******************************
Dim tMsg As String, tAnswer As Integer
If Range("D3") = "A" Then
tMsg = "Prüfung wird über alle Solvency-I-Buchungskreise durchgeführt!"
tAnswer = MsgBox(tMsg, vbExclamation + vbOKCancel, "VV-Prüffung")
If tAnswer = vbOK Then
flagProcess = True
Else
flagProcess = False
End If
Else
flagProcess = True
End If
If flagProcess Then
Call doProcess1
End If
End
"
Diese Funktion vorne ist mit A gemeint, bisher ist nur möglich alle Dateien auszuwählen aber es ist keine zusammenfassende Auswahl möglich....
https://www.herber.de/bbs/user/122092.jpg
Eine Differenzierung im Ordner ist leider nicht möglich.
Daher soll der Code auf mehrere Excel später angewendet werden.
Danke
VG

Das hilft so wenig, wie vorherige Kommentare! owT

15.06.2018 13:28:50

EtoPHG

Beliebteste Forumthreads (12 Monate)

Forumthread: Do until mit Bedingung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread