Sheet löschen wenn bestimmtes Zeichen in Name

Forumthread: Sheet löschen wenn bestimmtes Zeichen in Name
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Sheet löschen wenn bestimmtes Zeichen in Name

16.04.2016 17:22:52

Patrick

Guten Tag Allerseits,
Gerne würde ich folgende Problemstellung in das Forum einbringen, in der Hoffnung Jemand kennt die Lösung dazu.
Ich habe eine Excel Datei mit einer Vielzahl von Blättern.
Mit einem Makro würde ich gerne, dass nur die Blätter gelöscht werden, die entweder "IS", "BS" oder "CF" im Namen haben.
Wäre dies möglich?
Danke und Beste Grüsse
Patrick

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sheet löschen wenn bestimmtes Zeichen in Name

16.04.2016 17:29:39

Hajo_Zi
AW: Sheet löschen wenn bestimmtes Zeichen in Name

16.04.2016 18:32:21

Patrick
Danke für dier Rückmeldung oT

16.04.2016 18:43:07

Hajo_Zi

AW: Sheet löschen wenn bestimmtes Zeichen in Name

16.04.2016 17:29:39

Hajo_Zi

Hallo Patrick,
es muss min. eine Tabelle drin sein die das nicht enthält.

Option Explicit
Sub Loeschen()
Dim WsTabbelle As Worksheet
Application.DisplayAlerts = False
For Each WsTabbelle In Worksheets
If InStr(UCase(WsTabbelle.Name), "IS") > 0 Or InStr(UCase(WsTabbelle.Name), "BS") > 0  _
Or InStr(UCase(WsTabbelle.Name), "CF") > 0 Then
WsTabbelle.Delete
End If
Next WsTabbelle
Application.DisplayAlerts = True
End Sub