Datum finden und scrollen

[Thomas78]

Guten Morgen zusammen,

und täglich grüßt das Murmeltier...

Vielleicht kann mir jemand bei meinem Problem helfen. Ich habe einen Spinbutton der mir das Datum in Zelle E1 mit folgendem Code verändert:

     Private Sub SpinButton1_SpinDown()

      Dim datE1 As Date
      datE1 = Range("E1").Value
      Range("D1").Value = Range("D1").Value - 1 + ((Weekday(datE1, vbTuesday) > 5) * (Weekday(datE1, vbSunday)))
      ActiveWindow.ScrollColumn = Date - Range("E1") + 4
     End Sub

     Private Sub SpinButton1_SpinUp()
      Dim datE1 As Date
      datE1 = Range("E1").Value
      Range("D1").Value = Range("D1").Value + 1 - ((Weekday(datE1, vbSunday) > 5) * (3 - Weekday(datE1, vbFriday)))
      ActiveWindow.ScrollColumn = Date - Range("E1") + 4
     End Sub

Das rauf und runter schalten inkl. Wochenende funktioniert einwandfrei. Was mir Probleme macht ist folgendes:

Ich habe in Zeile 2 das Jahr als Datum erstellt, sprich Zelle G2 ist =DATUM(2017;1;1), Zelle J2=G2+1, Zelle M2=J2+1 usw. Ja es sind immer leere Zellen dazwischen aber nicht verbunden. Die Kalendererstellung verlief ohne Probleme. Mein Wunsch ist dass das Arbeitsblatt automatisch zu der Zelle scrollt an der sich das Datum aus E1 wiederfindet. Aber irgendwie macht es nicht das was es soll.

Kann mir jemand sagen was richtig wäre? Irgendwas stimmt mit dem farbig markierten Code nicht, aber was?

Vielen Dank und schöne Grüße

Thomas

[RPP63]

Moin!
Apropos Murmeltier:
Wo ist die Datei?

Gruß Ralf

[Thomas78]

Moin!
Apropos Murmeltier:
Wo ist die Datei?

Gruß Ralf

Das Murmeltier ist noch müde und hatte die Datei vergessen... [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]