Hallo,

ich habe folgendes Problem das ich nicht bei jeder datei den namen bzw Ort angeben möchte sondern nur sagen möchte in dem ordner alle datein ... bis keine mehr da ist...das hab ich dann auch gefunden hoffe das ist richtig...


With Application.FileSearch
.LookIn = "C:\xxx\xxx\"
.Filename = "*.xls"
If .Execute() > 0 Then
'MsgBox "Es wurde(n) " & .FoundFiles.Count & _
" Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
For s = 1 To NeueStationen
++++Hier weiß ich jetzt nicht was ich hinschreiben soll++++
Next s
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If

Nun was kann da hin kommen damit dort der dateiname in einer bestimmten Zeile + Spalte steht?


Gruß Kennyger

Hi,

aus welchem Grund machst Du noch ein Thema zum Selben Problem auf ???


--> *closed*


bye ...

LaMa5.