wie bekomme ich es hin, am Anfang meines vorhandenen
Makros überprüfen zu lassen, ob Excel-Dateien (egal welche)
in folgendem Verzeichnis vorhanden sind:
r:/test/test2/test3/2004
gruss
franz
Sub DateinamenAuflisten()
Dim Dateiname As String
Dim i As Integer
Dateiname = Dir$("c:\test\*.xls")
If Dateiname = "" Then
MsgBox "nix vorhanden"
Exit Sub
End If
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub