Do-Until-Schleife

Forumthread: Do-Until-Schleife

Do-Until-Schleife

30.05.2018 12:40:22

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?
Do Until tsVerzeichnisName = "" Or Left$(tsVerzeichnisName, 4) = tsBuchungskreis
tsVerzeichnisName = Dir
If tsVerzeichnisName "." And tsVerzeichnisName ".." Then
'Bitweiser Vergleich
If (GetAttr(tsRootDir & tsVerzeichnisName) And vbDirectory) = vbDirectory Then
tiCounterDirectory = tiCounterDirectory + 1
ReDim Preserve tVerzeichniseBuchungskreis(tiCounterDirectory)
tVerzeichniseBuchungskreis(tiCounterDirectory) = tsVerzeichnisName
End If
End If
Loop
Vielen Dank
MFG
Felix Schmalhofer

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Do-Until-Schleife

30.05.2018 13:30:30

Werner
vergessen was raus zu löschen..

30.05.2018 13:32:47

Werner
AW: vergessen was raus zu löschen..

30.05.2018 14:30:47

Felix
AW: vergessen was raus zu löschen..

31.05.2018 06:49:31

Hajo_Zi

AW: Do-Until-Schleife

30.05.2018 13:30:30

Werner

Hallo Felix,
meinst du so was?

Do Until tsVerzeichnisName = "" Or Left$(tsVerzeichnisName, 4) = tsBuchungskreis
Select Case Left(tsVerzeichnisName, 4)
Case "2990", "3004", "3240"
'hier dein weiterer Code
Case Else
'nix machen
End Select
Loop

Gruß Werner

vergessen was raus zu löschen..

30.05.2018 13:32:47

Werner

Hallo Felix,
so?

Do Until tsVerzeichnisName = ""
Select Case Left(tsVerzeichnisName, 4)
Case "2990", "3004", "3240"
'hier dein weiterer Code
Case Else
'nix machen
End Select
Loop

Gruß Werner

AW: vergessen was raus zu löschen..

30.05.2018 14:30:47

Felix

Danke Werner,
leider stürzt Excel jetzt immer ab beim Ausführen...

AW: vergessen was raus zu löschen..

31.05.2018 06:49:31

Hajo_Zi

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

Beliebteste Forumthreads (12 Monate)

Forumthread: Do-Until-Schleife

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread