Office: (Office 2016) Tabelenblätter nach Kriterium löschen

Hallo Forumsmitglieder,

in meiner Exceldatei befinden sich über hundert Tabellenblätter in unterschiedlichen Gruppen.

• Verwaltung
• BezeichnungA_01 bis BezeichnungA_12
• BezeichnungB_01 bis BezeichnungB_12
• BezeichnungC_01 bis BezeichnungC_12
• usw.

Am Jahresende sollen alle Tabellenblätter die am Ende des Tabellenblattnamens eine Zahl v0n 02 bis 12 haben, gelöscht werden.

Wie kann ich meinen Code (siehe Anhang) so ändern, dass das gelingt ohne die Tabellenblätter einzeln anzusprechen?

Kann jemand helfen?
Vielen Dank

der Mampfred

 

Hallo Mampfred,

ich würd's so angehen:

Code:

Sub Abschluss()
'Alle Tabellenblätter von 02 bis 12 werden entfernt

Dim wb As Workbook
Set wb = ThisWorkbook
Dim Blatt As Worksheet

Application.DisplayAlerts = False

For Each Blatt In ActiveWorkbook.Worksheets
Debug.Print Blatt.Name
    'wenn eine 02 bis 12 im Namen steckt
    If IsNumeric(Right(Blatt.Name, 2)) Then
        If CInt(Right(Blatt.Name, 2)) >= 2 And CInt(Right(Blatt.Name, 2)) <= 12 Then
            Blatt.Delete
        End If
    End If
Next

Application.DisplayAlerts = True

End Sub

Gruß,
Lutz

 

Hallo Lutz,

super, funktioniert einwandfrei.
Die Prüfung auf nummerische Werte in den letzten beiden Stellen des Namens und umwandeln mit Cint leuchtet mir jetzt ein.

Vielen Dank

der Mampfred