Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gehe zu Heute

Gehe zu Heute
01.09.2003 12:17:27
Markus
Hallo,

wie kann ich erreichen, daß die Einfügemarke in meiner Zeiterfassungsmappe beim Öffnen immer zum aktuellen Tag springt? (Mappe mit 12 Blättern)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Details
01.09.2003 12:49:42
sergiesam
Hi,

tja, im Hellsehen sind wir nicht ganz so gut ;-) du musst uns schon etwas genauer beschreiben, wie deine Mappe aussieht.

12 Blätter wie beschriftet Jan-Dez, Januar- Dezember,...
sind pro Blatt die Tage des Monats in Zellen?....

Bitte lade doch eine Beispielmappe hoch.
Sam
AW: Gehe zu Heute
01.09.2003 12:54:16
Rick
Hallo Markus

Drücke Alt + F11, dann wähle 'Diese Arbeitsmappe' und gebe folgende Formel ein;


Private Sub Workbook_Open()
Sheets(Array("Tabelle 1", "Tabelle 2", "Tabelle 3", "Tabelle 4")).Select
Sheets("Tabelle 1").Activate
Application.Goto Reference:="Datum"
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Tabelle 1").Select
End Sub


Die Tabellennamen musst du natürlich anpassen !!! und auch sonst musst du's noch vermutlich noch anpassen (ich weiss z.B. nicht, ob in jeder Tabelle das aktuelle Datum am gleichen Ort steht etc.)
Gruss
Rick
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige