Anzeige
Archiv - Navigation
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

alle listobjects löschen bis auf 2

alle listobjects löschen bis auf 2
09.02.2018 22:12:04
Thomas
Hey leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle listobjects löschen bis auf 2
09.02.2018 22:29:09
Sepp
Hallo 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

Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige