Zellen an Datum Justieren

[Rabe]

Hi Ralf,

aber dann scrollt Excel nicht. Weder die Anzeige, noch der Cursor springt da hin.

[RPP63]

Schaue Dir mal die Datei an.
Zelle E2 fixiert,
einziger Code für zwei Schaltflächen:

Code:

Sub Neujahr()
ActiveWindow.ScrollColumn = 5
End Sub

Sub Heute()
ActiveWindow.ScrollColumn = Date - DateSerial(2018, 1, 1) + 5
End Sub

Übrigens:
Mein oben benutzter Parameter Scroll:= war nur falsch im Brain abgelegt. ;)
Ihn gibt es in der Application.GoTo-Methode.

[Rabe]

Hi,

ok, so geht es.

Ich habe es noch für ein beliebiges Datum in E1 geändert:

Code:

ActiveWindow.ScrollColumn = Date - Range("E1") + 5

[Tyler]

Moin  moin zusammen, 

Also die Codes von euch funktionieren wirklich gut! Nochmal danke dafür! 
Inzwischen habe ich festgestellt, dass es vielleicht nicht schlecht wäre wenn nicht direkt das aktuelle Datum sondern immer der Sonntag vor dem Aktuellem Datum angesprungen wird. Sprich: heute, am 20.10. wird der 14.10. angesprungen oder am Montag den 22.10. wird der 21.10. angesprungen am 25.10. wieder den 21.10. usw. 
Allerdings habe keine Idee wie ich den Code entsprechend anpassen müsste um das umzusetzen 

Vielleicht habt ihr ja eine Lösung 
Danke an alle 

LG 
Tyler

[schauan]

Hallo Tyler,

so springst Du in einer Woche immer auf den gleichen Tag:

ActiveWindow.ScrollColumn = Int((Date - Range("E1") + 5) / 7) * 7

Sollte das kein Sonntag sein, musst Du die Differenz der Tage zum Sonntag noch entsprechend verrechnen.

[Tyler]

Hi Andre,

ich leider ergibt die Zeile einen Laufzeitfehler 1004.
weist du woran das liegen kann?

Gruß
Tyler

[schauan]

Hallo Tyler,

den bekomme ich z.B. wenn E1 leer ist oder das Datum in E1 in der Zukunft liegt. Was steht denn bei Dir drin?

[Tyler]

Hi,

Läuft Super! Vielen Dank :19:

Tyler

[Tyler]

Hallo nochmal,

Ich habe die Formel - ActiveWindow.ScrollColumn = Int((Date - Range("E1") + 5) / 7) * 7 - nun im Versuch.
Und nach dem ich die Werte angepasst hatte lief es auch zunächst, nur nun nach ein paar Tagen wird nicht mehr die korrekte Woche angezeigt und die Werte passen nicht so recht um die aktuelle KW zu sehen /springen.

Habt ihr eine Idee?? 

Schönen Abend 
Tyler 

[schauan]

Hallo Tyler,

zwei Fragen
- hast Du immer 7 Tage pro Woche?
- Hast Du am Datum in E1 was geändert?