Office: direkt zum aktuellen DAtum springen

beim öffnen meiner mappe (12 tabellenblätter) möchte ich gerne gleich aud dem tabellenblatt mit dem aktuellen datum landen. wie kann ich das in eine formel bringen???

 

Hallo,

da Du nicht angegeben hast, wie Deine 12 Arbeitsblätter heißen, musst Du mit meiner Namensgebung zufrieden sein:
a) entweder heißen sie: Januar, Februar, März, ..., November, Dezember
b) oder sie heißen beliebig, nur nicht nach vorgenannten Monatsnamen.
Folgendes Makro sucht sich im Falle von a) das Blatt mit dem entsprechenden Monatsnamen oder aber im Falle von b) einfach das Blatt mit der entsprechenden Monatsnummer (also im Falle des Juli das 7. Arbeitsblatt in der Mappe).

Code:

Private Sub Workbook_Open()
  Dim M%, MM$, Wsh As Worksheet
  M% = Month(Now()): MM$ = Format(Now(), "MMMM")
  For Each Wsh In ActiveWorkbook.Worksheets
    If Wsh.Name = MM$ Then Wsh.Activate: Exit Sub
  Next Wsh
  ActiveWorkbook.Worksheets(M%).Activate
End Sub

Vorgenanntes Makro kopieren und in das Codemodul von 'DieseArbeitsmappe' einfügen.