Hallo,

wie schaffe ich es, dass ich Dateinamen oder Excelmappennamen eines Verzeichnisses in einer Tabelle eintragen lassen kann, ohne dass das Dateiformat (.xls) mit angezeigt wird.

Bei meinem Code wird dies immer mit angezeigt. Es sollen aber nur die Arbeitsblattnamen in die Zellen geschrieben werden.


Dim str As String

Worksheets("……").Range("IK1:IK5000").ClearContents

str = Dir("C:....." & "*.xls")
Do While str <> ""
str = Dir
lz = ActiveSheet.Cells(Rows.Count, 245).End(xlUp).Row + 1
Cells(lz, 245) = str
Loop


Danke