Beim Öffnen auf heutiges Datum springen

21/11/2007 - 08:53 von Walter.Tiefenthaler | Report spam
Guten Morgen !

Wir haben hier einen Terminplaner als Excel sheet unserer Gruppe.
Wie schafft man es dass beim Öffnen der Datei der Cursor automatisch
auf die Zeile springt wo das heutige Datum steht ?

Die Spalten A-B sehen so aus:
Montag 19.11.2007
Dienstag 20.11.2007
Mittwoch 21.11.2007
Donnerstag 22.11.2007
Freitag 23.11.2007
Samstag 24.11.2007
Sonntag 25.11.2007

VG, Walter
 

Lesen sie die antworten

#1 Michael Mueller
21/11/2007 - 09:05 | Warnen spam
Hi Walter.

Wie schafft man es dass beim Öffnen der Datei der Cursor
automatisch auf die Zeile springt wo das heutige Datum steht?

Die Spalten A-B sehen so aus:
Montag 19.11.2007
Dienstag 20.11.2007
[...]



Als VBA-Code im Projekt der Datei unter DieseArbeitsmappe folgenden Code
einfügen:

Private Sub Workbook_Open()
Dim Target As Range
Set Target = Sheets(1).Range("B:B").Find(Date)
Sheets(1).Activate
If Not Target Is Nothing Then Target.Select
End Sub

Noch als Hinweis:
Sheets(1) habe ich jetzt für meinen Versuch genommen, dies muß dann bei Euch
ggf. angepasst werden.

HTH
Michi

Ähnliche fragen