beim Öffnen zum aktuellen Datum springen

Question

Hallo zusammen,
ich habe mal folgendes Anliegen.
Ich habe mir eine alte Datei in einen persönlichen Jahreskalender abgewandelt (das sage ich nur, um den ungewöhnlichen Aufbau zu erklären).
1 Arbeitsblatt ist 1 Monat = 12 Arbeitsblätter.
Ist es jetzt möglich, dass beim Öffnen der Datei der Cursor automatisch zum aktuellen Tag (=Heute) springt? Und da immer in die erstmögliche Zelle Bei 0.00 Uhr (also am 1. des Monats immer die Zelle B9, am 24. des Monats immer die Zelle CB63 usw.; im Prinzip immer links oben).
Da wahrscheinlich noch die eine oder andere Frage zum Tabellenaufbau besteht habe ich den Link mit reingestellt.
Achso falls das wichtig ist. Nach Fertigstellung der Datei werde ich die Arbeitsblätter schützen, wo dann z.Bsp. die Spaltenüberschriften und Zeilenüberschriften (Uhrzeiten) gesperrt sein werden.
Danke und Gruß Flodnug

http://www.xup.in/dl,54026374/Terminplaner_2015.xlsm/

PS.: Ich benutze Excel 2007

Answer 1

Hallo Flodnug,

ich habe mal für einen Schichtplan etwas ähnliches gemacht.

Hier mein Vorschlag für dich:

Code in "Diese Arbeitsmappe"

Sub workbook_open()

Application.ScreenUpdating = False

Dim zelle As Range
Dim heute As String
Dim Monat

Monat = Format(Date, "mmmm") '(Tabellennamen müssen komplett geschrieben werden)
Worksheets(Monat).Activate 'aktueller Monat wird aktiviert

heute = Date

For Each zelle In Worksheets(Monat).Range("a1:dz200") '(Bereich in dem das aktuelle Datum gesucht wird)
If zelle = heute Then
zelle.Offset(2, -11).Activate '(aktiviert die Zelle 2 Zeilen unter und 11 Spalten links vom Datum (also die Zelle mit 00:00))
End If
Next zelle

Application.ScreenUpdating = True

End Sub

Funktioniert auch mit verbundenen Zellen

Gruß Kaleun

Answer 2

hi Flodnug ^^

den letzten codes ausprobiert ?
der code versagt nur ab der 2 zelle eines verbundes
dann waere das Datum ja unsichtbar ^^

ich braeuchte eine beispielmappe im xls Format :-)

gruss nighty

Answer 3

Hallo Flodnug,
das Datum sollte lesbar sein, und ein anderes Format (09.11.2015)

http://www.xup.in/dl,52676216/TERMINPLANER_2015.XLSM/

Gruß
fedjo

Answer 4

Hallo nighty,
hier das xls Format.

http://www.xup.in/dl,36584200/TERMINPLANER_2015.xls/

Gruß
fedjo

Answer 5

hallo fedjo ^^

danke fuer deine muehen :-)

gruss nighty

Answer 6

hi all ^^

zellen duerfen nicht verbunden sein(bei #anzeige die spalte soweit verbreitern bis das Datum sichtbar ist)
Format der gesuchten datumszellen muss TT.MM.JJJJ sein

so funktionieren beide makros erster/letzter fund

gruss nighty

Answer 7

hi all ^^

dank an fedjo fuer die tolle unterstuetzung :-)

gruss nighty

Answer 8

Hallo zusammen,
ich wollte mich nochmal in Erinnerung bringen und höflich nachfragen, ob sich nochmal jemand mit meinem Probkem befassen kann.
Zumal die Lösung von fedjo in Antwort 15 ja schon recht nahe schien. Nur das da beim öffnen Excel nicht zum aktuellen Datum springt, sondern zum 22. November.
Danke und Gruß Flodnug

PS.: Da waren übrigens noch die verbundenen Zellen vorhanden. Von daher bin ich ein wenig skeptisch, dass das Problem auch an den verbundenen Zellen liegen könnte.

Answer 9

Hallo zusammen,
Asche auf mein Haupt.
Habe gerade festgestellt, dass ihr mir ja schon weiter helfen wolltet und ich zu blöd war zu bemerken, dass es mittlerweile eine zweite Antwortseite gibt,
Darum muss ich jetzt erstmal die ganzen Antworten durcharbeiten und ausprobieren. Ich melde mich danach nochmal.
Also nochmal vielen Dank für Eure Hilfe bis dahin.
Gruß Flodnug

PS.: Ihr dürft auch gerne über meine Dusseligkeit lästern.
Nur nicht so doll bitte. Ich schäme mich selber schon genug.

Answer 10

Hallo zusammen, hallo Kaleun,
ich musste leider ins Krankenhaus und mich einer OP unterziehen.
Habe jetzt alle Antworten durchgearbeitet und kann sagen, dass mir die Antwort 21 von Kaleun im Prinzip geholfen hat. Danke Kaleun.
Jetzt habe ich nur noch ein kleines Problem. Beim Öffnen springt Excel zwar zum aktuellen Datum, aber leider wird dieser Tag nicht im aktiven Monitobereich (um es mal so auszudrücken).
Kann mir bitte jemand das Makro so ergänzen, dass der aktuelle Tag auch links oben auf dem Monitor steht? So als wenn man den Button vom Monatstag ausführt.
Habe für diesen Fall die funktionierende Datei hochgeladen.
http://www.xup.in/dl,14546799/Terminplaner_2015OK.xlsm/
Danke nochmals an alle und Gruß Flodnug