Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Blattwechsel in die Zelle mit dem aktuellen Datum springen

Gruppe

SheetActivate

Problem

Beim Blattwechsel soll der Cursor immer zum aktuellen Datum in Spalte A springen.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Dim var As Variant
   var = Application.Match(CDbl(Date), Columns(1), 0)
   If IsError(var) Then Exit Sub
   Cells(var, 1).Select
End Sub