Office: Aktive Zelle in Sichtbereich

Hallo Ihr lieben Helferlein,

ich hänge heute schon den ganzen Tag an einem Problem. Ich habe mehrere Tabellenblätter, in denen jeweils in Spalte A ein Jahr auf geführt ist. Mittels Programm soll das aktuelle Datum in Spalte A markiert werden. Soweit funktioniert mein Programm auch. Nur leider wird mir die aktive Zelle nicht im Sichtbereich angezeigt. Was ist mein Problem? Hier mal ein Ausschnitt.

Dim rngSuchbegriff As Range '
Set rngSuchbegriff = Cells.Find(What:=Date, LookAt:=xlWhole)
If rngSuchbegriff Is Nothing = False Then
Range(rngSuchbegriff.Address).Activate
Range(rngSuchbegriff.Address).Select

Vielen Dank schon im Voraus für Eure Hilfe.

:)

 

Von "Quinoman" Michael
Application.Goto Reference:="R14C6", scroll:=True
von Andre
Application.Goto Reference:=Range("F6"), scroll:=True

 

Hallo,

2 Varianten zum testen, bitte wechselweise auskommentieren.

Code:

Bist Du Dir sicher, dass Find das Datum überhaupt findet?
Diese Suchoption ist leider mit zahlreichen Tücken versehen und stark abhängig von der Art und Weise, wie das Datum eingegeben und formatiert ist.

@Hajo

Ist das als Hinweis auf CP zu verstehen?

Grüße
EarlFred

 

ich habe keine Ahnung wer CP ist. Es ist eine Antwort auf die Frage.

 

Hallo Hajo,

CP heißt Crossposting. Ich gehe davon aus, dass für diese Einzeiler sonst keine Quellenangabe notwendig wäre, oder?

Grüße
EarlFred