005 — Direktlink
01.03.2006, 22:59 Uhr
Hajo
|
sorry, vergessen 
------------------
Sub Einlesen()
sPath = "" hier zwischen den " " den gesamten Pfad eintragen
sPattern = "*.*" zeigt alle Dateien an, *.pdf nur pdf-Dateien usw.
arr = arrAll(sPath, sPattern)
For iCounter = 1 To UBound(arr)
Cells(iCounter, 1) = sPath & arr(iCounter)
Next iCounter
End Sub
Function arrAll(sPath As String, sPattern As String) As Variant
Dim arr()
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sFile = Dir(sPath & sPattern)
Do While sFile <> ""
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
arr(iCounter) = sFile
sFile = Dir()
Loop
arrAll = arr
End Function
-------------------
wenn man das Makro auto_open nennt, wird bei jedem Aufruf der Exceldatei
das angegebene Verzeichnis neu eingelesen.
Makros müssen natürlich aktiviert sein.
das Ergebnis sieht danach so aus:
--
nur 2 Flaschen pro Haushalt. In manchen leben aber mehr 
Dieser Post wurde am 01.03.2006 um 23:16 Uhr von Hajo editiert. |
