intZeile = 29
    Zeilenzahl = Range("D29", Range("D29").End(xlDown)).Rows.Count
    arr = Array()
    
    For z = 0 To Zeilenzahl - 1
        ReDim Preserve arr(z)
        arr(z) = patch & "_0" & Cells(intZeile, 4).Value
        intZeile = intZeile + 1
    Next z
    
    With ZM
        Application.DisplayAlerts = False
        For Each wsz In .Worksheets
            For z = LBound(arr) To UBound(arr)
                If wsz.Name = patch & "_0" & arr(z) Then IstDa = True
            Next z
            If Not IstDa = True Then wsz.Delete
        Next wsz
    End With


Folgender Errorcode erscheint bei mir

Laufzeitfehler '1004':
Die Methode 'Delete' für das Objekt '_Worksheet' ist fehlgeschlagen


Kann mir einer sagen warum dieser Fehler auftaucht aber erst nachdem die Tabellen, welche sich nicht im Array befinden gelöscht wurden?