Bestandsnamen in andere cel of kolom

[martindeboer1988]

Onderstaande code plaatst de bestandsnamen uit een bepaalde map in Cel A1 en vanuit daar verder.
Maar graag zou ik dit in andere cellen kunnen plaatsen is dit mogelijk ?

Private Sub CommandButton1_Click()
Dim fileList() As String
    Dim fName As String
    Dim I As Integer, X As Integer
    fName = Dir("T:\Facilities-NL\Leeuwarden algemeen\Beveiliging\**********\To*****n\" & "*.pdf")
    While fName <> ""
        I = I + 1
        ReDim Preserve fileList(1 To I)
        fileList(I) = fName
         fName = Dir()
    Wend
    If I = 0 Then
        MsgBox "Geen bestanden gevonden"
        Exit Sub
    Else
        Columns(1).ClearContents
        For X = 1 To I
            Cells(X, 1) = fileList(X)
        Next
    End If

end sub

 

[edmoor]

Tuurlijk. Hier wordt dat gedaan:
Cells(X, 1) = fileList(X)

De X is het rijnummer en de 1 is kolom A.

 

[martindeboer1988]

Wanneer ik aanpassingen maak daar veranderd dat helaas niks aan de plaatsing van de bestandsnamen .... wat doe ik verkeerd ?

 

[martindeboer1988]

Ik heb het inmiddels gevonden , jou oplossing klopte wel alleen zat ik in de verkeerde sheet dingen aan te passen. Ik moet echt eens namen gaan gebruiken denk ik ...
Nu zit ik alleen nog met het volgende wanneer ik de kolom aanpas gaat dat prima alleen zodra ik de X in

Cells(X, 4) = fileList(X)

aanpas laat Excel nog maar 1 bestandsnaam zien.
Wanneer de rij gewoon X is laat die wel de hele lijst zien...

Inmiddels kunnen vinden waar ik de fout inging de code hieronder.
Wanneer ik het rijnummer aanpas achter For X= gaat het wel goed

 Else
        Columns(4).ClearContents
        For X = 10 To I
            Cells(X, 4) = fileList(X)