Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

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

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

Msg mit 2 Ereignissen +Cancel

Ereignisprozedur

Makro für ereignisabh. Druck verschiedener Seiten

UF Activate / Initialize Ereignis

Namen definiert- in Ereignis verwenden?

Zeilen aus- einblenden als Ereignis?

Welches Ereignis ist das richtige ??

Ereignis Arbeitsblatt sperren abfangen

Ereignisprozedur f. Multipage-Reiter

Frage zum Change ereignis

Change-Ereignis in Combobox unterdrücken

Combobox Ereignis

Userform, Ereignis deklarieren im Klassenmodul

Welches Diagramm-Ereignis?

Bestimmtes Ereignis in Spalte zählen

Command Button Ereignis

Ereignis von Laufzeit-Checkbox

change-ereignis bei dynamischen Controls / Teil 2

Change Ereignis verhindern

change-ereignis bei dynamisch erstellten Controls

Schaltfläche - Ereignis erst nach Bestätigung ausl

Objekt_Error - Ereignis in UserForm

change ereigniss auf userform.

Click-Ereignis für Checlbox nicht ausführen?

Speichern einer Kopie durch Ereigniss Workbook_bef

Reagieren auf Tastaturereignisse

Ausnahmen für Exit-Ereignis

Exit-Ereignis SetFocus

select Ereigniss UF Show

Ereignis zeitweise mit Fehler

Ereignismakro

Selectereigniss in Spalte

doppeltes Klick-Ereignis

Doppelklick-Ereignis

VBA Ereignis: Änderung der Hintergrundfarbe

Ereigniscode aus zwei Teilen fnk. nicht

Exit Ereignis einer Textbox im Frame

Change-Ereignis bei Auswahllisten

Worksheet_Change Ereignis erweitern

Exit Ereignis springt nicht an

Exit-Ereignis

Ereignis "BeforeSave" - ".Find" geht nic

change ereigniss nicht ausführen Userform

Exit Ereignis

Rekursiven Aufruf von Ereignissen verhindern

Makro läuft nicht, falsches Ereignis?

Dropdown Ereignis

Nach Eingabe Ereignis

UDF mittels Ereignis aktualisieren?

Ereignisprozeduren automatisiert VBE