SpinButton - ActiveX
02.02.2015 19:59:10
Matthias
Hallo Mike
Nimm mal eine neue Mappe.
Schreib in H1:H3 jeweils das heutige Datum:
Füge nebenan je ein SpinButton ein (ActiveX-Steuerelement !)
Folgenden Code in das entsprechende Tabellenblatt:
Private Sub SpinButton1_SpinDown()
'Tag -
Dim MyDate
If IsDate(Range("H1").Value) Then MyDate = CDate(Range("H1"))
Range("H1") = DateSerial(Year(MyDate), Month(MyDate), Day(MyDate) - 1)
End Sub
Private Sub SpinButton1_SpinUp()
'Tag +
Dim MyDate
If IsDate(Range("H1").Value) Then MyDate = CDate(Range("H1"))
Range("H1") = DateSerial(Year(MyDate), Month(MyDate), Day(MyDate) + 1)
End Sub
Private Sub SpinButton2_SpinDown()
'Monat -
Dim MyDate
If IsDate(Range("H2").Value) Then MyDate = CDate(Range("H2"))
Range("H2") = DateSerial(Year(MyDate), Month(MyDate) - 1, Day(MyDate))
End Sub
Private Sub SpinButton2_SpinUp()
'Monat -
Dim MyDate
If IsDate(Range("H2").Value) Then MyDate = CDate(Range("H2"))
Range("H2") = DateSerial(Year(MyDate), Month(MyDate) + 1, Day(MyDate))
End Sub
Private Sub SpinButton3_SpinDown()
'Jahr -
Dim MyDate
If IsDate(Range("H3").Value) Then MyDate = CDate(Range("H3"))
Range("H3") = DateSerial(Year(MyDate) - 1, Month(MyDate), Day(MyDate))
End Sub
Private Sub SpinButton3_SpinUp()
'Jahr +
Dim MyDate
If IsDate(Range("H3").Value) Then MyDate = CDate(Range("H3"))
Range("H3") = DateSerial(Year(MyDate) + 1, Month(MyDate), Day(MyDate))
End Sub
Nun wird beim Klick aufs SpinButton
in H1 der Tag, in H2 der Monat und in H3 das Jahr verändert.
Gruß Matthias