Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
788to792
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blatt-Name prüfen

Blatt-Name prüfen
08.08.2006 23: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
Anzeige
AW: Blatt-Name prüfen
09.08.2006 00: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 00: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 00:17:24
Sebastian
Halt stopp,
Fehler lag bei mir!!
Die Lösung von Boris funktioniert einwandfrei!!
Vielen herzlichen Dank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige