kleine Frage
meinen Speicherpfad lese ich hier aus
Speicherpfad = Sheets("Übersicht").Range("D7").Value
Dim Dateiname As String, i As Integer
Dateiname = Dir$(Speicherpfad)?
das Listing funktioniert, möchte aber nur XLS Files auflisten
jetzt nimmt er immer alles
mein Code Auszug funktioniert sonst einwandfrei (aus Archiv)
ActiveSheet.Range("A3").Activate
Dim Dateiname As String, i As Integer
Dateiname = Dir$(Speicherpfad)
Do While Dateiname ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
DANKE für Hilfe
gruss helena