VBA Laufzeitfehler 9
23.05.2019 10:14:18
Jenny
ich schreibe gerade einen VBA-Code über einen CommandButton, der im Abgleich einer Liste mir _
die Tabellenblätter löscht, deren Name in der Liste enthalten ist:
Private Sub CommandButton2_Click()
Dim i As Integer
Dim j As Integer
Dim leer As Boolean
Application.DisplayAlerts = False
For i = 1 To Worksheets.Count
j = 0
leer = False
Do While sheets("Übersicht").Range("H3").Offset(j, 0) ""
If leer = False Then
If sheets(i).Name = sheets("Übersicht").Range("H3").Offset(j, 0) Then
sheets(i).Delete
leer = True
End If
End If
j = j + 1
Loop
Next i
Application.DisplayAlerts = True
End Sub
Dabei taucht der Laufzeitfehler 9: Index außerhalb des gültigen Bereichs auf.
Probleme hat der mit dem "Sheets(i).Name = Sheets....", wenn ich dort im Code auf Details gehe, kommt die Info "Bezeichner unter dem Cursor nicht gefunden".
Das komische ist aber, dass er mir den Code eigentlich bis auf die Meldung am Ende fehlerfrei ausführt, d.h. es werden alle gewünschten Tabellenblätter wie geplant gelöscht.
Wisst ihr, wo das Problem genau liegt, bzw. wie man die Fehlermeldung unterdrücken kann? Durch das "application.Displayalerts" funktioniert das leider nicht.
Vielen Dank!
Jenny
Anzeige