aus einer Spalte mit Datumswerten Zelle mit aktuellem Datum selektieren

In einer Tabelle befinden sich in Spalte A Datumswerte. Unser kleines Makro soll nun die Zelle mit dem aktuellen Datum selektieren.

Dazu nutze ich nachstehenden Code: Option Explicit Sub Zelle_mit_aktuellem_Datum_selektieren() Dim zelle As Range Dim bereich As Range Set bereich = ThisWorkbook.Worksheets(1).Range("A1:A2999") 'Bereich anpassen For Each zelle In bereich If zelle = Date Then zelle.Select End If Next zelle End Sub

Um diesen Code zB beim aktivieren des Tabellenblatts automatisch ausführen zu lassen kann man diesen natürlich auch dem Worksheet_Activate Ereignis mitgeben. Private Sub Worksheet_Activate() Dim zelle As Range Dim bereich As Range Set bereich = ThisWorkbook.Worksheets(1).Range("A1:A2999") 'Bereich anpassen For Each zelle In bereich If zelle = Date Then zelle.Select End If Next zelle End Sub

 Share on Facebook

Read more http://vba-codeschnipsel.de/aus-einer-spalte-mit-datumswerten-zelle-mit-aktuellem-datum-selektieren/