Microsoft Office Excel hat ein Problem festgestell
edie
habe bei der Recherche folgendes Makro gefunden und angepasst.
Dabei werden alle Tabellen zwischen der dritten und letzten Tabelle gelöscht.
Wenn aber die Tabellen bereits gelöscht sind und man versehentlich
das Makro ausführt kommt es zur Fehlermeldung:
"Microsoft Office Excel hat ein Problem festgestellt und muss beendet werden ."
Habe auch schon mal mit "On Error Resume Next" versucht es hilft aber nicht.
Hier das Makro:
Sub test() 'Tabellen löschen zwischen 3 und Count - 1
Dim wks As Worksheet
Dim l As Long
Dim lTab As Long
Dim TabArray() As Long
Application.ScreenUpdating = False
wks.Activate
On Error Resume Next
lTab = ThisWorkbook.Worksheets.Count - 1
ReDim TabArray(4 To lTab)
On Error Resume Next
For l = 1 To lTab
TabArray(l) = l
Next l
ThisWorkbook.Worksheets(TabArray).Delete
Application.ScreenUpdating = True
End Sub
Hat jemand eine Idee und kann helfen?
Vorab vielen Dank.
Grüße edie