Gruppe
Ereignis
Bereich
SheetActivate
Thema
Bei Blattwechsel in die Zelle mit dem aktuellen Datum springen
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