Wie kann Excel automatisch zur markierten Zelle wechseln?

Ich habe mit der Gantt-Diagrammvorlage herumgespielt und einige Inhalte bearbeitet. Einer der Nachteile, die mir aufgefallen sind, ist, dass ich das Datum in Zelle "E4" ändere. Die Zelle im linken Bereich wird hervorgehoben, aber nicht automatisch verschoben.

Wenn ich das Datum auf den 02.02.2017 ändere. Die Datumsspalte wird hervorgehoben, aber ich muss manuell zu diesem Datum scrollen.

Frage: Kann Excel das Blatt auf irgendeine Weise automatisch auf das ausgewählte Datum verschieben?

Sie können a verwenden Worksheet_Change() Veranstaltung dies zu tun. In dem Arbeitsblatt Wenn Sie möchten, dass dies ausgeführt wird, fügen Sie diesen Code hinzu. (Klicken Sie mit der rechten Maustaste auf die Registerkarte Arbeitsblatt und wählen Sie "Code anzeigen".)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dateCell As Range

If Target.Address = "$E$4" Then
    Set dateCell = Range("A49:A50").Find(what:=Target.Value)
    If dateCell Is Nothing Then
        MsgBox ("Date not found")
    Else
        dateCell.Select
    End If
End If
End Sub

Hinweis: Passen Sie die Set dateCell = Range([this range]) um der Bereich Ihrer Daten zu sein, zu dem Sie "springen" möchten, nachdem Sie das Datum eingegeben haben.