besteht die Möglichkeit eine Arbeitsmappe, die 12 Monatsblätter (Registerblatt Jan bis Dez) enthält, mit dem aktuellen Monatsblatt zu öffnen.
Danke für Eure Hilfe
MfG
Burghard
Private Sub Workbook_Open()
On Error GoTo Fehler
Dim TB
'Tabellenbenennung muss in der Form MMM also Jan, Feb vorliegen
TB = Format(Date, "MMM")
If TabellenblattVorhanden(TB) Then
Sheets(TB).Select
Else
MsgBox TB & " nicht vorhanden!"
End If
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Function TabellenblattVorhanden(ByVal vName As String) As Boolean
Dim sheetSuche As Worksheet
TabellenblattVorhanden = False
For Each sheetSuche In Worksheets
If UCase(sheetSuche.Name) = UCase(vName) Then
TabellenblattVorhanden = True
Exit Function
End If
Next sheetSuche
End Function
LG UweDPrivate Sub Workbook_Open()
Dim strDatum As String
strDatum = Format(Now, "MMM")
On Error GoTo ERRORHANDLER
Sheets(strDatum).Select
Exit Sub
ERRORHANDLER:
MsgBox "Tabellenblatt " & strDatum & " ist nicht vorhanden"
Err = 0
End Sub
Gruß Werner