ich bin auf der Suche nach einem Code mit dem ich in einem Tabellenblatt alle intelligenten Tabelle löschen kann bis auf zwei (sind mit namen bezeichnet)
gibts da möglichkeiten?
beste grüße
thomas
Sub deleteListobjects()
Dim objSh As Worksheet, objList As Object
For Each objSh In ThisWorkbook.Worksheets
For Each objList In objSh.ListObjects
Select Case objList.Name
Case "myTable", "myOtherTable" 'Listobjects die NICHT gelöscht werden
Case Else: objList.Delete
End Select
Next
Next
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0