Sheets loeschen, die bestimmten String enthalten
07.12.2006 19:03:53
Christian
habe folgenden Code um alle Sheetnamen meines Workbook auf eine bestimmte Zeichenkette zu pruefen und anschliessend zu loeschen:
Sub delSheets()
Application.DisplayAlerts = False
For i = 1 To Sheets.Count
If Sheets(i).Name Like "Modul*" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
End Sub
Wenn ich es ausfuehre, werden ein paar Sheets mit dem String geloescht, andere die den String im Namen haben, bleiben aber erhalten und ich erhalte folgende Fehlermeldung: "Subscript out of range"
Woran liegt das?
Danke,
Christian
Anzeige