mit unterstehende code lesen ich dateinamen aus mit dateiendung, was muss ich ändere sodas dateiendung nicht mit ausgegeben wird.
also nicht so
abc.xx
aber so
abc
'Dateien auslesen
Private Sub CommandButton1_Click()
Dim zeile As Long, fn As String
Dim Pfad As String, Muster As String
Range("B4:B65536").ClearContents
zeile = 4
Pfad = Range("B1")
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
Muster = Range("B2")
fn = Dir(Pfad & Muster)
Do While fn ""
Cells(zeile, 2) = fn
zeile = zeile + 1
fn = Dir()
Loop
End Sub
grüsseKarel