Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1624to1628
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
Inhaltsverzeichnis

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
Anzeige
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...
Anzeige
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.
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige