Sub DateienEinlesen1()
On Error GoTo Fehler
Dim FileArray()
Dim i%, n%
Dim Ordner$, Extension$, dName$
Ordner = "C:\wer"
'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, 1) = FileArray(i)
Next
Exit Sub
Fehler:
MsgBox ("Ein Fehler ist aufgetreten." & Chr(13) & "Wahrscheinlich existiert das Verzeichnis:" & Chr(13) & "C:wer" & Chr(13) & "nicht!")
End Sub
Mein Problem ist hier, ich möchte das Excel nicht an der ersten Zeile anfängt, sondern an der fünften
Wenn ich bei I das einsetzte funktioniert das nicht
Danke schonmal
Markus