Gruppe
Ereignis
Bereich
Open
Thema
Zur Zelle mit aktuellem Datum scrollen
Problem
In Spalte A habe ich Datumseinträge. Wie kann ich veranlassen, daß beim Öffnen der Arbeitsmappe die Zeile, in der sich die Zelle mit dem aktuellen Datum befindet, als oberste Zeile angezeigt wird?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim iRow As Integer
With Worksheets("Tabelle1")
iRow = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0)
Application.Goto .Cells(iRow, 1), True
End With
End Sub