Aktuelles Datum

• Aktuelles Datum von Peter vom 17.11.2003 23:52:51
  • AW: Aktuelles Datum - von WernerB. am 18.11.2003 07:31:05
    • AW: Aktuelles Datum - von Peter am 18.11.2003 12:03:16
      • AW: Aktuelles Datum - von WernerB. am 18.11.2003 12:32:12
        • AW: Danke - von Peter am 18.11.2003 12:50:12

Betrifft: Aktuelles Datum
von: Peter
Geschrieben am: 17.11.2003 23:52:51
Hallo @all,

Habe eine Kalender wo die Monate untereinander aufgelistet sind.
Wie mache ich es das beim öffnen der Tabelle der Focus auf's aktuelle Datum springt, damit man nicht erst bis Nov. zB. runterscrollen muss?

Danke im voraus!!


Gruss Peter

Betrifft: AW: Aktuelles Datum
von: WernerB.
Geschrieben am: 18.11.2003 07:31:05
Hallo Peter,

in welcher Spalte stehen denn die Tage?
In welchem Format stehen die Tage in den Zellen (steht da "18.11.2003", "18.11.", "18" oder sonstwas; dann müsste ggf. zuerst der Monat und danach der Tag gesucht werden)?
Ohne diese Angaben lässt sich wohl kein vernünftiger Vorschlag erarbeiten.

Gruß WernerB.

Betrifft: AW: Aktuelles Datum
von: Peter
Geschrieben am: 18.11.2003 12:03:16
Hallo Werner,
Das Datum steh in Spalte D abwärts wobei nach jedem Monat eine Leerzeile ist.
Das Format ist 18.11!

Danke für deine Antwort

Gruss Peter

Betrifft: AW: Aktuelles Datum
von: WernerB.
Geschrieben am: 18.11.2003 12:32:12
Hallo Peter,

das nachstehende Makro gehört in das Modul des betreffenden Tabellenblattes.
Ich bin davon ausgegangen, dass die Tage immer zweistellig (also ggf. mit führender Null) in die Spalte D eingetragen sind.

Private Sub Worksheet_Activate()
Dim c As Range
Dim Td As String
Dim laR As Long
Td = Left(Date, 5)
laR = Cells(Rows.Count, 4).End(xlUp).Row
For Each c In Range("D1:D" & laR)
If c.Text = Td Then
c.Select
Exit For
End If
Next c
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

Betrifft: AW: Danke
von: Peter
Geschrieben am: 18.11.2003 12:50:12
Hallo Werner,
Danke für den Code, werde ihn nachher mal ausprobieren!

Gruss Peter

Excel-Beispiele zum Thema " Aktuelles Datum"
Beim Öffnen der Arbeitsmappe auf aktuelles Datum prüfen