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

hi Flodnug ^^

ops hatte vergessen deinen namen einzutragen :-))

gruss nighty

Answer 2

Hallo Fedjo,
Danke für die schnelle Antwort.
Schade hab mich schon richtig gefreut, aber leider kommt jetzt auch die Meldung:
Laufzeitfehler '91'
Objektvariable oder With-Blockvariable nicht festgelegt.
Und beim debuggen wird folgende Zeile gelb unterlegt:
Range(Suche.Address).Select.
Es wäre scön, wenn du es nochmal bei dir probierst und schickst mir, wie beim ersten mal den Link.
Denn vielleicht habe ich ja auch einen Fehler beim kopieren gemacht.
Gruß Gundolf

PS.: Muß jetzt leider zum Sport und kann auf eine Antworterst morgen reagieren.

Answer 3

hi Fedjo und all ^^

das aktualle Datum wurde nicht gefunden :-)

gruss nighty

mit fehlerabfrage

Private Sub Workbook_Open()
Dim Suche As Object
Worksheets("" & Mid(MonthName(Month(Date)), 1, 3)).Activate
Set Suche = Cells.Find(What:=CDate(Format(Date)), After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not Suche Is Nothing Then
Range(Suche.Address).Select
Else
meldung = MsgBox("Fehler", , "Es wurde kein Datum gefunden")
End If
End Sub

Answer 4

hi Fedjo und all ^^

asche auf mein Haupt :-(
war mein fehler,von anfang an

ich bezog keine formelwerte mit ein

darum wurde nichts gefunden

nun aber ^^

erste fund

Private Sub Workbook_Open()
Worksheets("" & Mid(MonthName(Month(Date)), 1, 3)).Activate
Cells.Find(What:=CDate(Format(Date)), After:=Range("A1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
End Sub

letzte fund

Private Sub Workbook_Open()
Worksheets("" & Mid(MonthName(Month(Date)), 1, 3)).Activate
Cells.Find(What:=CDate(Format(Date)), After:=Range("A1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
End Sub

Answer 5

Hallo Gundolf,
deine Datei hat viele verbundene Zellen, die für Makros eigentlich nicht funktionieren.
Eine Möglichkeit wäre, das du das Datum (08.11.2015) in die farbigen und nicht verbundenen Zellen (AA7,AA34 usw.) eingibst.

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

Gruß
fedjo

Answer 6

hi fedjo ^^

verbundene zellen sind verboten :-)

das haette wieder fehler gehagelt

gruss nighty

Answer 7

hi fedjo ^^

sind die datumswerte auch verbunden ?
oder liesse sich ein such Bereich festlegen der nicht verbunden ist ?

gruss nighty

Answer 8

Hallo nighty
Datumwerte sind auch verbunden.
Es sind nur einzelne Zellen der Tage nicht
verbunden.
Gruß
fedjo

Answer 9

hi fedjo ^^

es waere zwar machbar diese aufzulösen und wieder zu verbinden
aber verlangsamt deutlich je nach umfang die Laufzeit
da viele mir jetzt nur eine kommplette Abtastung oder eine liste mit den Adressen ein

rate ich erstmal von ab

eventuell kommen später noch makros hinzu und verursachen die selbe prblematik

bitte an Flodnug die Mappe ohne verbunde zellen zu überarbeiten

oder hast du noch Ideen fedjo ^^

gruss nighty

Answer 10

Hallo fedjo, hallo nighty,
danke, danke, danke.
Ich finde es ganz, wie ihr weiter am Ball bleibt.
Darum habe ich mich auch heute abend noch an die arbeit gemacht und alle verbundenen Zellen entfernt -
gemäß nighty seinem Wunsch. Das waren in der Mappe tatsächlich hunderte.
Jetzt seht ihr zwar bei den Datumstagen und im Heutefeld nur Rauten, aber das hoffe ich hat für das Problem keine Bedeutung.
Ich habe auch noch nicht rausbekommen, warum die Zellen nicht überfliessen, obwohl di Nachbarzellen leer sind.
Vielleicht könnt ihr mir dazu ja auch noch einen Tip geben, denn das war ja der einzige Grund warum ich die Zellen überhaupt verbunden habe.
Danke nochmal und Gruß Flodnug

Link (Datei ohne verbundene Zellen): http://www.xup.in/dl,14758473/Terminplaner_2015.xlsm/