Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zahlenformat in for schleife

zahlenformat in for schleife
27.07.2005 21:12:26
Bernd
halllo,
ich habe folgendes problem:
per for-schleife importiere ich aus verschiedenen textdateien daten.
die textdateien heissen vb000001.txt, vb000002.txt usw. bei der datei vb000010.txt habe ich nur noch 4 führende nullen, nicht mehr 5.
die for schleife ist so:
for i = 1 to 10
workbook open "pfad\vb00000" & i & ".txt" dadada
nach 9 mal durchlaufen bricht der code ab weil die datei vb0000010.txt nicht existiert. er sollte vb000010.txt importieren.
kann mir da einer helfen?
vilen dank
gruss bernd

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zahlenformat in for schleife
27.07.2005 21:21:42
Leo
Hi,
teil auf:
for i = 1 to 9
workbook open "pfad\vb00000" & i & ".txt"
next
for i = 10 to 99
workbook open "pfad\vb0000" & i & ".txt"
next
mfg Leo
AW: zahlenformat in for schleife
27.07.2005 21:22:29
Ramses
Hallo Bernd
vielleicht so
Sub test()
Dim i
Dim preString As String
Dim myPfad As String
preString = "00000"
myPfad = "C:\DeinOrdner\"
For i = 1 To 10000
    Select Case i
        Case Is > 9999
            preString = "0"
        Case Is > 999
            preString = "00"
        Case Is > 99
            preString = "000"
        Case Is > 9
            preString = "0000"
    End Select
    Workbooks.Open myPfad & "\vb" & preString & i & ".txt"
    'Dein Code
Next i
End Sub

Gruss Rainer
Anzeige
danke euch beiden :-)
27.07.2005 21:33:33
Bernd
AW: zahlenformat in for schleife
27.07.2005 21:39:17
Luschi
Hallo Bernd,
hier die kürzeste Lösung:
workbook open "pfad\vb" & Right("00000" & i, 6) & ".txt"
Gruß von Luschi
aus klein-Paris
genial, danke luschi
27.07.2005 21:45:03
Bernd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige