Anzahl der Einträge auslesen

Sub Daten_suchen()
Dim FS As FileSearch, wsh1 As Worksheet, i As Integer, q, c
Set wsh1 = ThisWorkbook.Sheets(1)
Set FS = Application.FileSearch
Let q = 5
With FS
.LookIn = ThisWorkbook.Path
.Filename = "*.xls"
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
If Range("A1") = "Abrechnung" Then
Sheets(1).Select
'Daten in Zeilen schreiben
With wsh1
.Cells(q, 1) = Range("D4")
.Cells(q, 2) = Range("D6")
.Cells(q, 4) = Range("d20")
.Cells(q, 11) = Range("d42")
.Cells(q, 6) =
End With
Let q = q + 1
End If
ActiveWorkbook.Close False
Next i
End If
End With
MsgBox ("Es wurden " & q - 5 & " Dateien importiert")
End Sub