![]() |
Betrifft: Datum in Tabellenblättern suchen
von: Harald G.
Geschrieben am: 31.07.2014 09:41:29
Private Sub Workbook_Open()
Guten Tag,
ich habe eine Anwesenheitsliste für Mitarbeiter.
Für jeden Monat gibt es ein Tabellenblatt.
Das Datum steht jweils in den Zellen I8:AM8.
Mein Ziel:
Beim Öffnen der Datei soll automatisch das Tagesdatum in den Tabellenblättern "Januar" bis "Dezember" und "Januar Folgejahr" im Zellbereich I8:AM8 gesucht werden und genau dieses Tabellenblatt angezeigt werden (="activate"?).
Zusatzinfo (um im Vorfeld ein eventuelles Problem mit zu berücksichtigen):
Das Datum im Zellbereich I8:AM8 ist kein Wert, sondern eine Formel, welche sich den Datumswert aus einer anderen Datei holt.
Der Mitarbeiter, der die Datei öffnet soll also automatisch das Tabellenblatt mit dem aktuellen Monat angezeigt bekommen.
Kann mir jemand den Code nennen?
Vielen Dank im vorraus
Harald G.
![]() ![]() |
Betrifft: Rückfragen
von: Erich G.
Geschrieben am: 31.07.2014 10:13:17
Hi Harald,
deine Frage verstehe ich so nicht wirklich.
Wenn wir uns heute im Juli befinden, soll dann nicht einfach das Blatt "Juli" anzezeigt werden?
Das ginge mit
Sheets(Format(Date,"MMMM")).Select
und ohne nach einem Datum suchen zu müssen. Warum sollte man im November nach einem Juli-Datum suchen?
Noch eine Frage:
Wenn der 5. Januar ist - wann passte das Blatt "Januar" und wann das Blatt "Januar Folgejahr"?
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
![]() ![]() |
Betrifft: AW: Rückfragen - Problem behoben - DANKE
von: Harald G.
Geschrieben am: 31.07.2014 11:23:57
Hallo Erich,
das die Lösung so einfach ist, hatte ich nicht gedacht.
Funktioniert toll.
Ja, wenn man im Juli ist soll auch Juli angezeigt werden.
Das Tabellenblatt. "Januar Folgejahr" ist nur für die Anwesenheitsplanung zum Jahreswechsels Vorfeld.
Es besteht also kein Problem, weil man im laufenden jahr nur manuell zu diesem Tabellenblatt wechselt. Zu Jahresbeginn gibt es ja immer eine neue Datei.
Vielen Dank und Grüße aus Köln
Harald
![]() |