Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zur Zelle mit aktuellem Datum scrollen

Gruppe

Open

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