Also daheim hat man ja bekanntlich mehr Zeit:
snip09
im XL:
[code]Option Explicit
'*************************************************************************
'*** call function with LV
'*************************************************************************
Function CheckFile(FileName As String, Path As String, InsertColumn As Long) As String()
Dim Answer(1) As String
Dim lastRow As Long
Dim firstRow As Long
Dim WkSh As Worksheet
Dim NameRange As Range
'vaild path ends with backslash
If Right(Path, 1) = "" Then