Sheets mit gleichem Namesteil zählen

Forumthread: Sheets mit gleichem Namesteil zählen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Sheets mit gleichem Namesteil zählen

14.11.2008 12:41:08

Marc

Hallo ihr Profis,
ich habe eine Datei, in der die einzelnen Tabellen nach Datum benannt sind. Es kann aber auch vorkommen, dass an einem Datum mehrere Tabellen angelegt werden. Die heißen dann z. B. "14.11.2008 Seite 1" und "14.11.2008 Seite 2" usw. Ist es möglich die Tabellenblätter mit dem gleichen Datum im Namen per VBA zu zählen? Ich will also nicht die Anzahl aller Tabellenblätter sondern nur die des gleichen Datums.
Ich danke euch schonmal im voraus!
Grüße,
Marc

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sheets mit gleichem Namesteil zählen

14.11.2008 12:51:00

Chris
AW: Sheets mit gleichem Namesteil zählen

14.11.2008 13:05:33

Marc

AW: Sheets mit gleichem Namesteil zählen

14.11.2008 12:51:00

Chris

Servus Marc,
vom prinzip her so:


Sub t()
Dim i As Long, datum As Date, zähler As Long
datum = "14.11.2008"
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 10) = datum Then
zähler = zähler + 1
End If
Next i
MsgBox zähler
End Sub

Gruß
Chris