Gruppe
Ereignis
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?
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