Blatt-Name prüfen

Forumthread: Blatt-Name prüfen

Blatt-Name prüfen

09.08.2006 01:42:44

Sebastian

Hallo,
welchen Trick muss ich anwenden, um per Makro den Namen der Tabellenblätter auf deren Endung zu überprüfen?
Es sollen alle Blätter gelöscht werden, deren Enden nicht _ku lautet!?
Vielen Dank,
Sebastian

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Blatt-Name prüfen

09.08.2006 02:02:49

{Boris}
AW: Blatt-Name prüfen

09.08.2006 02:14:20

Sebastian
AW: Blatt-Name prüfen

09.08.2006 02:17:24

Sebastian

AW: Blatt-Name prüfen

09.08.2006 02:02:49

{Boris}

Hi Sebastian,
Option Explicit


Sub til()
Dim Sh As Object
On Error GoTo Uups
Application.DisplayAlerts = False
For Each Sh In ThisWorkbook.Sheets
If Right(Sh.Name, 3) <> "_ku" Then Sh.Delete
Next Sh
Uups:
Application.DisplayAlerts = True
End Sub

Grüße Boris

AW: Blatt-Name prüfen

09.08.2006 02:14:20

Sebastian

Hallo Boris,
leider löscht er bei mir trotzdem alle Tabellenblätter!
Trotzdem danke für die schnelle Antwort.
Gruß, Sebastian

AW: Blatt-Name prüfen

09.08.2006 02:17:24

Sebastian

Halt stopp,
Fehler lag bei mir!!
Die Lösung von Boris funktioniert einwandfrei!!
Vielen herzlichen Dank

Forumthread: Blatt-Name prüfen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread