Exceltabelle - Sprung auf das heutige Datum

Computer: Software & Programmierung Office Software
1

Hallo, ich habe eine Excel-Tabelle mit 5 Spalten. In Spalte B steht ein Datum. Die Spalte beinhaltet ca. 1.000 Einträge mit fortlaufenden Datum.
Ich bräuchte die Möglichkeit, daß wenn die Arbeitsmappe geöffnet wird, daß dann auf die Zelle (in Spalte B) gesprungen wird in der das jeweils heutige Datum steht.
Vielen Dank!

2

Hallo, ich habe eine Excel-Tabelle mit 5 Spalten. In Spalte B
steht ein Datum.
Ich bräuchte die Möglichkeit, daß wenn die Arbeitsmappe
geöffnet wird, daß dann auf die Zelle (in Spalte B) gesprungen
wird in der das jeweils heutige Datum steht.

Hallo Uwe,

nachfolgende Codes gehören in zwei verschiedene Module, frag nach wie das geht wenn du es nicht weißt.
Ggfs. den Blattnamen im zweiten Code anpassen.

Gruß
Reinhard

in Modul „DieseArbeitsmappe“

Option Explicit

Private Sub Workbook\_Open()
Call Huepfe
End Sub

in ein Standardmodul, z.B. „Modul1“

Option Explicit

Private Sub Workbook\_Open()
Call Huepfe
End Sub

Sub Huepfe()
Dim Such As Range
With Worksheets("Tabelle1")
 .Activate
 Set Such = .Columns(2).Find(Date)
 If Not Such Is Nothing Then
 Such.Select
 Else
 MsgBox "heutiges Datum nicht gefunden"
 End If
End With
End Sub
3

Hat wuederbar geklappt.
Vielen Dank!!!
Gruß.
Uwe