heutiges datum finden
14.02.2016 17:13:33
Thomas
ich habe ein Kalender mit einer variablen Zeilenanzahl. Nun möchte ich gern das beim aktivieren des Tabellenblatts der heutigen tag markiert wird. .
Das datum kann in den Bereich B2:AF1000 stehen. Es wird mit einer Formel ( =b2+1)
errechnet und liegt im Format TT MMM vor. Das Datum gibt es immer zwei mal das zweite Format ist TT MMM.Es soll nur eins von beiden markiert werden. Ist auch egal welches.
Ich habe schon einiges Probiert aber es will nicht gelingen. Ich bekomme zwar keine fehlermeldung aber es wird auch nicht selektiert.
Zwei meiner versuche habe ich unten angehangen.
weiss jemand was da falsch sein könnte.
liebe grüsse thomas
Public Sub Worksheet_Activate()
On Error Resume Next
Application.Goto Evaluate("=MATCH(TODAY(),3:500,0)")
On Error GoTo 0
'##########geht nicht ##################################
'If Not Worksheets("kalender").Range("b2:af500").Find(Date, LookIn:=xlValues, LookAt:=xlWhole) _
Is Nothing Then _
'Worksheets("kalender").Range("b2:af500").Find(Date, LookIn:=xlValues, LookAt:=xlWhole). _
Activate
End Sub