Auswahl bestimmter Tabellenblätter

Question

Hallo,

ich habe folgenden Code
...
Dim shBlatt As Worksheet
For Each shBlatt In ActiveWorkbook.Worksheets
Datei = shBlatt.name
Sheets(Datei).Select
....
next
.....
Ich möchte die Befehle aber nicht für alle Tabelenblätter ausführen, sondern nur für die die "Jan", "Feb", "Mrz" usw. heißen. Wie kann ich den Code auf diese Monatsnamen bzw. auf dreistellige Sheets-Namen einschränken????
Danke und Gruß
Andreas

Answer 1

Hallo Andreas,

nach folgendem Prinzip.

Option Explicit

Sub Monat()
If IsDate("1." & ActiveSheet.Name & ".2014") Then
MsgBox "Ja"
End If
End Sub

Gruß Hajo

Answer 2

Hallo Hajo,

ich habe das so leider nicht hingekriegt. Kann man denn den Befehl ...For Each shBlatt In ActiveWorkbook.Worksheets... nicht einschränken mit ...like...oder so?
A.

Answer 3

ich habe dartin kein Problem gesehen
ActiveSheet.Name durch shBlatt.name
zu ersetzen.
Da kann icgh dann nicht weiter helfen.

Gruß Hajo

Answer 4

Hallo Hajo,

sicher habe ich das Problem nicht richtig beschrieben.....
Die Datei besteht aus ca. 40 Sheets wobei 12 Sheets mit den Monatsnamen "Jan", "Feb",... usw. bezeichnet sind. Das Programm soll bestimmte Befehle nacheinander ausschließlich für diese 12 Sheets ausführen.
Gruß
Andreas

Answer 5

hi all ^^

Beispiele

gruss nighty

Sub schleifen01()
Dim DatIndex As String
For Each DatIndex In Array("Januar", "Februar", "März")
'DatIndex beinhaltet den Monatsnamen
Next
End Sub

Sub schleifen02()
Dim TabIndex As Integer
For TabIndex = 5 To 17
'TabIndex könnte der worksheetindex(Index statt namensbezeichnung)sein
Next TabIndex
End Sub

Answer 6

Hallo,

funktioniert super...
Vielen Dank!!!!!
Andreas