Tipps & Tricks 12.02.2005, 15:45 Uhr

Beim öffnen die Zelle mit dem aktuellen Datum aktivieren - Excel

Problem: Ich habe einen Terminplan für das laufende Jahr mit Excel 2000 erstellt. In einer Spalte habe ich fortlaufend alle Daten im Datumsformat. Ich möchte nun, das beim Öffnen des Terminplans das Feld mit dem aktuellen (heutigen) Datum aktiv ist. Wie kann man das lösen?
Lösung: Verwenden Sie ein Makro, das beim Öffnen der Datei ausgeführt wird. Um dieses Makro in die Datei zu integrieren, Öffnen Sie erst die Datei und dann den Visual-Basic-Editor (ALT+F11). Auf der linken Seite müsste jetzt der Projektexplorer eingeblendet sein. Ist dies nicht der Fall, drücken Sie die Tastenkombination ALT+R. Damit das Makro automatisch beim Öffnen ausgeführt wird, müssen Sie es im Code von "DieseArbeitsmappe" einfügen. Doppelklicken Sie also im Projektexplorer "DieseArbeitsmappe" um das entsprechende Codefenster zu öffnen.
Im Codefenster fügen Sie nun folgendes Makro ein:
Speichern Sie dann die Datei und schliessen Sie sie. Beim erneuten öffnen wird automatisch die Zelle in Spalte A aktiviert, die das aktuelle Datum enthält. Im untenstehenden Beispiel wurde zusätzlich noch die erste Zeile fixiert, damit die Titel immer sichtbar bleiben.
---------------------------------------
MAKRO ZUM KOPIEREN
---------------------------------------
Private Sub Workbook_Open()
Dim Aktuell As Integer
With Worksheets("Tabelle1")
Aktuell = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0)
Application.Goto .Cells(Aktuell, 1), True
End With
End Sub
---------------------------------------



Kommentare
Es sind keine Kommentare vorhanden.