Sub DateienAuflistenA5()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder(Cells(5, 1))
Set objDateienliste = objVerzeichnis.Files
lngZeile = 8
lngZeile2 = Cells(1, 15) + lngZeile
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
If ActiveSheet.Cells(lngZeile, 12).Value = objDatei.Name Then
ActiveSheet.Cells(lngZeile, 5) = objDatei.Name
ActiveSheet.Cells(lngZeile, 10) = Right(objDatei.Name, 3)
lngZeile = lngZeile + 1
Else
ActiveSheet.Cells(lngZeile2, 5) = objDatei.Name
ActiveSheet.Cells(lngZeile2, 10) = Right(objDatei.Name, 3)
lngZeile2 = lngZeile2 + 1
End If
End If
Next objDatei
End Sub