Wobei die alten Einträge in Spalte A unverädert bleiben.
(Die Einträge in Spalte B können Überschrieben oder gelöscht werden)
Weis jemand rat? Mir würde eine VBA lösung am besten gefallen.
Sub Einlesen()
Dim i As Integer, lz As Long
With Application.FileSearch
.LookIn = "c:\"
.FileType = msoFileTypeAllFiles
.Execute
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
If WorksheetFunction.CountIf(Range("A:A"), .FoundFiles(i)) = 0 Then
lz = Range("A65536").End(xlUp).Row + 1
Cells(lz, 1).Value = .FoundFiles(i)
End If
Next i
End With
End Sub
Sub Einlesen2()
Dim i As Integer, lz As Long, fn As String
fn = Dir("C:\*.*", 31)
Do While fn <> ""
If WorksheetFunction.CountIf(Range("A:A"), fn) = 0 Then
lz = Range("A65536").End(xlUp).Row + 1
Cells(lz, 1).Value = fn
End If
fn = Dir()
Loop
End Sub