Excel 2003 - Zelle auf bestimmten Inhalt überprüfen

Hallo an Alle,

folgendes Problem stellt sich mir:

ich habe ein paar Tausend Excel Dateien mit je einem Arbeitsblatt, bei denen der Eintrag in einer festen Zelle überprüft werden muss, und wenn er nicht übereinstimmt soll der Dateiname in Form einer Liste ausgegeben werden, wobei nur der Anfang des Zelleninhalts identisch sein muss.

Beispiel:

Die zu überprüfende Zelle in allen Dateien ist: C4

Der Inhalt der Zelle soll beginnen mit: A (gefolgt von Zahlen und Buchstaben, zusammengesetzt oder auch mit Leerzeichen))

Wenn die Zelle nicht mit " A " beginnt, soll der Dateiname in einer Liste (für Ausdruck) ausgegeben werden.


Ist dies möglich, bzw. wer weiß Rat?


Vielen Dank an Alle

Euer Excel-Starter

Sub vergleichen()

   Dim lngCount As Long
    Dim wkb As Workbook
    Dim strWert As String
    
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
        For lngCount = 1 To .SelectedItems.Count
           Set wkb = Workbooks.Open(.SelectedItems(lngCount))
           strWert = wkb.Worksheets(1).Range("C4")  
           If Left(strWert, 1) <> "A" Then  
                iRow = iRow + 1
                ThisWorkbook.Worksheets(1).Cells(iRow, 1) = .SelectedItems(lngCount)
            End If
            wkb.Close
            Set wkb = Nothing
        Next lngCount
    End With

End Sub