Ansatz auch gefunden --> bitte nochmal helfen
17.11.2002 14:55:38
Steffen
Erst mal danke Hans,ich habe auch ein Makro gefunden:
Sub DateienEinlesen()
Dim FileArray()
Dim i%, n%
Dim Ordner$, Extension$, dName$
Ordner = InputBox("Verzeichnis:", , "c:\eigene dateien")
Extension = InputBox("Dateityp:", , "*.xls")
ChDrive Left(Ordner, 1)
ChDir Ordner
dName = Dir(Extension)
Do While dName <> ""
n = n + 1
ReDim Preserve FileArray(1 To n)
FileArray(n) = dName
dName = Dir()
Loop
For i = 1 To n
ActiveSheet.Cells(i, 2) = FileArray(i)
Next
End Sub
Leider beginnt dieses Makro immer bei Zeile 1 wenn ich in der Zeile:
For i = 1 To n
ActiveSheet.Cells(i, 2) = FileArray(i)
Next
den Wert i auf 6 setze fängt Excel zwar in der 6 Zeile an, aber läßt auch alle vorangegangen Dateien weg, wie muss ich das ändern!!!
Danke nochmals
Steffen
PS: geht Dein Makro auch mit Excel 97, weil manche Benutzer leider immernoch EXcel 97 einsetzen?!