Thema Datum  Von Nutzer Rating
Antwort
Rot Woher kommt der Fehler?
25.07.2016 16:23:10 Greenhorn
NotSolved
25.07.2016 16:24:48 Greenhorn
NotSolved

Ansicht des Beitrags:
Von:
Greenhorn
Datum:
25.07.2016 16:23:10
Views:
831
Rating: Antwort:
  Ja
Thema:
Woher kommt der Fehler?
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?

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Woher kommt der Fehler?
25.07.2016 16:23:10 Greenhorn
NotSolved
25.07.2016 16:24:48 Greenhorn
NotSolved