Ich habe mit der Gantt-Diagrammvorlage herumgespielt und einige Inhalte bearbeitet. Einer der Nachteile, die mir aufgefallen sind, ist, dass, wenn ich das Datum in Zelle „E4“ ändere, die Zelle im linken Bereich hervorgehoben, aber nicht automatisch verschoben wird.
Wenn ich das Datum auf den 02.02.2017 ändere, wird die Datumsspalte hervorgehoben, aber ich muss manuell zu diesem Datum scrollen.
Frage: Gibt es eine Möglichkeit, dass Excel das Blatt automatisch zum ausgewählten Datum verschieben kann?
Antwort1
Sie können Worksheet_Change()
hierfür ein Ereignis verwenden. ImArbeitsblattSie möchten, dass dies ausgeführt wird, fügen Sie diesen Code hinzu. (Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts und gehen Sie zu „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 den Wert Set dateCell = Range([this range])
so an, dass er dem Datumsbereich entspricht, zu dem Sie nach der Datumseingabe „springen“ möchten.