Tabellenblätter abhängig vom Registernamen zählen
16.03.2016 11:27:16
Rico
ich benötige mal eine Ergänzung zu einem Makro, welches Tabellenblätter nach bestimmten Kriterien zählt. Es geht darum, die Anzahl der Kostenstellen pro Arbeitsmappe zu ermitteln.
Die Tabellenblätter sollen gezählt werden, wenn folgenden Bedingungen erfüllt sind:
-Das Tabellenblatt ist sichtbar (eingeblendet)
-Das Tabellenblatt hat im Registernamen vier Ziffern stehen (1234)
Ich habe eine Beispieldatei angefügt. Darin ein Makro, welches die sichtbaren Blätter zählt. Mir fehlt noch die Funktion, die berücksichtigt, dass nur Blätter mit vier Ziffern im Registernamen gezählt werden.
Hier mal vorab der Code, den ich schon habe:
Sub Sichtbare_Blätter_zählen()
'Es werden nur die sichtbaren (eingeblendeten) Tabellenblätter gezählt
Dim ws As Worksheet
Dim lng_anz As Long
For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then lng_anz = lng_anz + 1
Next ws
MsgBox lng_anz & " Blätter sind sichtbar"
End Sub
Kann mir bitte jemand einen Tipp geben, wie die Ergänzung funktioniert, damit nur Blätter mit numerischen Registernamen gezählt werden?
Vielen Dank!
Rico
https://www.herber.de/bbs/user/104372.xlsm