sammlingne filer i liste med filer i mappe

ups xxxx=kundenummer

LN

Prøv denn tilrettede kodestump ra nettet
OBS ret Sti og område hvor liste er *** 2 linier 

Function CreateFileList(FileFilter As String, _
    IncludeSubFolder As Boolean) As Variant
Dim FileList() As String, FileCount As Long, Sti
    CreateFileList = ""
    Erase FileList
    Sti = "C:\Users\pm\Desktop\" ' *** Ret Sti
    If FileFilter = "" Then FileFilter = "*.xls"
    With Application.FileSearch
        .NewSearch
        .LookIn = Sti
        .FileName = FileFilter
        .SearchSubFolders = False
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) = 0 Then Exit Function
        ReDim FileList(.FoundFiles.Count)
        For FileCount = 1 To .FoundFiles.Count
            FileList(FileCount) = Application.WorksheetFunction.Substitute(.FoundFiles(FileCount), Sti, "")
        Next FileCount
        .FileType = msoFileTypeExcelWorkbooks
    End With
    CreateFileList = FileList
    Erase FileList
End Function

Sub TestCreateFileList()
Dim FileNamesList As Variant, i As Integer
    FileNamesList = CreateFileList("*.xls", False)
    On Error GoTo noMatch
    For i = 1 To UBound(FileNamesList)
        x = Range("A1:A1000").Find(FileNamesList(i), LookIn:=xlValues).Row '*** Ret Range til hvor liste er
    Next i
GoTo ud
noMatch:
MsgBox ("Filen >> ") & Sti & FileNamesList(i) & " << Findes ikke i din liste"
Resume Next
ud:
End Sub

koden skal egentlig helst ligge i Samme fil som listen er. fungerer det således?

LN

bej det er egentlig også ok den ligger i en selvstændig fil he he. Bare det virker så er det egentlig lige meget ;O)

LN

den er baseret på at være i fil hvor liste er med arket aktiveret
det andet spørgsmål du har bliver først efter arbejdstid

test lige om denne virker,så retter jeg den anden til
husk også de andre spørgsmål du har åbne

ja jeg glemmer ingen åbne spørgsmål og skal nok huske at give point ;O)

LN

jeg har fået det til at virke
Point Excelent?
LN

ok

for at lukke skal du markere box med navn og klikke accepter