Excel - VBA - Macro - Ordner zugriff - aber nicht auf jeden Subordner

'Modul für den Ordnerdurchlauf durch H   

Public Sub RunThroughFolderH (ByVal searchFolder As Variant, ByRef row As Integer, ByRef line As Integer)

    'Rekursiv werden die einzelnen Ordner und Unterordner durchlaufen und ihre Dateien verglichen  
    
    Dim Ordner As Variant
    Dim SubOrdner As Variant
    Dim Datei As Variant
    Dim gueltig As Boolean
    

    Set Ordner = FSO.GetFolder(searchFolder)

    For Each Datei In Ordner.Files                                         'Durchlaufen jeder Datei im aktuellen Ordner  
        If FM.relevantFile(Datei) = True Then                      'Prüfen auf richtige Dokumentennummern  
            Select Case (FM.gueltig(Datei))
                Case True
                    FM.addToList Datei, row, "Bestand_Hgueltig"  
                Case False
                    FM.addToList Datei, line, "Bestand_Hungueltig"  
            End Select
            
        End If
    Next
         
    For Each SubOrdner In Ordner.SubFolders                                   '  Durchlaufen jedes Unterordners des aktuellen Ordners  
        RunThroughFolderH SubOrdner.path, row, line             'Rekursiver Aufruf mit einem der Unterordner als neuem Hauptordner  
    Next

End Sub