Sub Einlesen()
Dim myCls As New clsFindFiles
Dim myPaths As New Collection
Dim Item As Variant
Dim iRow As Integer
Dim wbk As Workbook
Dim wbkFile As Workbook
myCls.SearchPathsRecursive RootPath, "\.xlsm$"
Set myPaths = myCls.Files
If myPaths.Count > 0 Then
Set wbk = Application.Workbooks.Add
iRow = 1
Application.EnableEvents = False
For Each Item In myPaths
Set wbkFile = Application.Workbooks.Open(Filename:=Item, ReadOnly:=True)
wbk.Worksheets(1).Cells(iRow, 1).Value = Item
wbk.Worksheets(1).Cells(iRow, 2).Value = wbkFile.Worksheets(1).Range("G22").Value
wbkFile.Close False
iRow = iRow + 1
Next
Application.EnableEvents = True
End If
End Sub