VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zur Zelle mit aktuellem Datum scrollen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open