08.02.2017, 09:38
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:
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
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