Datum mit SpinBox ändern (VBA, Excel)

Hallo zusammen,

Ich habe eine Textbox (txtxDatum), in der das aktuelle Datum steht (tt.mm.jjjj). Dieses wird beim initialisieren reingeschrieben.

Nun möchte ich mit einem SpinButton (SpinButton1) das Datum hoch bzw runterzählen. Also dass dieses dann in der Textbox steht.

Wie kann ich das am besten machen?

MfG Manu

Answer 1

[Oubyi, UserMod Light]

Schau mal, ob Dir nicht auch das reicht:

Private Sub SpinButton1_Change()
TextBox1.Value = Date + SpinButton1.Value
End Sub

Woher ich das weiß: Berufserfahrung – IT-Administrator (i.R.)

Comments

[Suboptimierer]

Super! Warum kompliziert, wenn es auch einfach geht.
Man muss allerdings daran denken, die Eigenschaft "Min" auf einen negativen Wert zu stellen, um rückwärts datieren zu können.

[Oubyi, UserMod Light]

@Suboptimierer

Danke fürs ☆
☼

Answer 2

[Suboptimierer]

Private Sub SpinButton1_SpinDown()
  Dim dt As Date

  dt = CDate(txtxDatum.Text)
  dt = DateAdd("d", -1, dt)
  txtxDatum.Text = CStr(dt)
End Sub

Private Sub SpinButton1_SpinUp()
  Dim dt As Date

  dt = CDate(txtxDatum.Text)
  dt = DateAdd("d", 1, dt)
  txtxDatum.Text = CStr(dt)
End Sub

Woher ich das weiß: Berufserfahrung – Programmierer

Comments

[Oubyi, UserMod Light]

DH!