Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blätter löschen

Forumthread: Blätter löschen

Blätter löschen
25.02.2004 14:23:37
Klaus
Hallo zusammen
ich möchte alle tabellenblätter löschen, wo der name hinten eine Klammer hat. z.B. Hilfstabelle(1) oder Daten(2)
Kann jemand helfen?
Im voraus vielen dank
gruss klaus
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter löschen
25.02.2004 14:44:39
PeterW
Hallo Klaus,
bei deinem angegebenen Level dürfte der Hinweis reichen, dass du lediglich das letzte Zeichen des Namens auf ")" zu prüfen brauchst (eventuell das Vorhandensein von "(", sofern in Blattnamen das ")" isoliert auftreten kann). Das dann in eine For-Each Schleife verpacken und fertig.
Gruß
Peter
Anzeige
AW: Blätter löschen
25.02.2004 14:50:47
K
Danke Peter
habs jetzt so gelöst:
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
If Right(sh.Name, 1) = ")" Then
On Error GoTo errhandler
Application.DisplayAlerts = False
sh.Delete
End If
Next
errhandler:
Application.DisplayAlerts = True
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige