VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Blattwechsel in die Zelle mit dem aktuellen Datum springen

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

    


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