Zellensprung

[Chieftech]

Hallo,

wozu soll das gut sein? Die selektierte Zelle wird in die Mitte gerückt, wie weit nach rechts gerollt werden soll, ist abhängig von der jeweiligen Bildschirmgröße und Auflösung.

Weil ich im Normalfall bei meinen Einstellungen (Bildschirmgröße/Auflösung), sofort den kompletten Monat im Überblick hab, wenn die Zelle am Anfang der Tabelle angezeigt wird und nicht in der Mitte.
Was ich persönlich schon sinnvoll finde, wenn ich in einen Monatsanfang springen will, diesen auch in der 1. Spalte der Tabelle sehen kann. 


Application.Goto Range("F1"), True macht genau das was es soll. Außer das ich ein "false" statt dem "true" benutzen musste. :D 

Dementsprechend danke allen Beteiligten. Bin zufrieden mit der Lösung 

Gruß Chief 

[snb]

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 if target.address="$D$2$" then application.goto cells(1,6+33*month(target)),true
end sub