Mit folgendem Code liste ich in einer UF alle vorhandenen Tabellen ohne die aufgeführten auf. Zusätzlich will ich alle Tabellen ausschliessen, die den Namen Tabelle, also Tabelle1, Tabelle2 Tabelle3 usw. haben. Wie kann ich den Code ergänzen, ohne alle möglichen Tabellen aufzulisten?
Sub cboTabellenblatt_Füllen()
For Each TabBlatt In ActiveWorkbook.Sheets
If TabBlatt.Name = "Meier" Or TabBlatt.Name = "Müller" Or TabBlatt.Name = "Huber" _
Or TabBlatt.Name = "Muster" Or TabBlatt.Name = "Muster1" Or TabBlatt.Name = "Muster2" _
Then GoTo weiter
With Me.cboTabellenblatt
.AddItem TabBlatt.Name
.ListIndex = "0"
End With
weiter:
Next TabBlatt
End Sub
Vielen DankGregor