Zelle I14 in Sheet"SETUP" enthält Formel =Heute()
Nun möchte ich diese Zelle nutzen um die Sheets "Monate" zu öffnen.
Beispiel Heute = 07.07.2012 , Sheet "Juli" öffnet sich zum bearbeiten
Gruß Matze
Private Sub Workbook_Open()
On Error Resume Next
Sheets(Format(Date, "MMMM")).Activate
End Sub
Gruß GerdPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F1}"
End Sub
Private Sub Workbook_Open()
Application.OnKey "{F1}", "SheetActivate"
End Sub
Sie ändern beim Start die Belegung der Taste F1 und stellen beim Schließen den Originalzustand wieder her.