Wie kann ich ein bestimmtes Blatt öffnen, das nach einem Monat benannt wurde?

485
Valerie

Ich habe eine Reihe von Monatsregistern

Was ist eine Möglichkeit, eine bestimmte mit VBA zu öffnen? Ich habe versucht, dieses Snippet zu verwenden :

Private Sub Workbook_Open()  Dim ws As Worksheet Dim mnth As String, dte As String, mday As String  mday = Now() - Weekday(Now(), 3)  mnth = Month(mday) dte = Day(mday)  tabstr = mnth & "-" & dte  For Each ws In Worksheets If ws.Name = tabstr Then ws.Select Exit For End If Next  End sub 

aber das ist für Blattnamen, die nach Daten benannt sind so formatiert, wie mm-ddzB „7.11“ oder „11-14“ .

Wie ändere ich diesen Code, damit er für Blattnamen funktioniert, die Monatsnamen wie "Mai" enthalten?, "Juni" oder "Juli" enthalten ?

-1

2 Antworten auf die Frage

2
Leviathan

Um die Registerkarte des aktuellen Monats nach dem Öffnen einer Arbeitsmappe automatisch in den Vordergrund zu bringen, können Sie einfach Folgendes verwenden:

Private Sub Workbook_Open() Sheets(Format(Now(), "mmmm")).Select End Sub 

HINWEIS: Dies funktioniert nur, wenn die Monatsnamen in der gleichen Sprache wie das Betriebssystem sind.

1
Gary's Student

So rufen Sie den Namen des aktuellen Monats ab:

Sub tretdc() tabstr = Format(Now(), "mmmm") MsgBox tabstr End Sub