Office: Bilderliste (.jpg) in Namensliste einer Excel-Datei konverti

Wie kann man eine Bilderliste noimage.jpg, noimage1.jpg usw. aus einer Datei (Eigene Bilder) in eine Excel-Datei als Namensliste umwandeln (in Spalten oder in Zeilen) ohne, dass man einzelne Bilddatei-Namen ausleuchten und kopieren muss.

Z.B.
SpalteA

noimage0.jpg
noimag1.jpg
.
.
.
noimageN.jpg

Habe leider hierzu nichts gefunden. Danke für einen Tip.

 

Hallo!

Dieses Makro holt alle jpg-Dateien aus dem Ordner "E:\Fotos" und schreibt sie in Spalte A:

Code:

Sub BilderHolen()
    Dim strFolder As String, strName As String, lngRow As Long
    strFolder = "E:\Fotos"
    If Trim$(strFolder) <> "" Then
        Application.ScreenUpdating = False
        Columns(1).ClearContents
        strName = Dir(strFolder & "\*.jpg")
        Do
            lngRow = lngRow + 1
            Cells(lngRow, 1) = strName
            strName = Dir
        Loop Until strName = ""
        Application.ScreenUpdating = True
    End If
End Sub

 

Prima - hat tiptop funktioniert. Danke