UF Textbox Format Jahr
Heinz
Mit einen SpinButton1 wähle ich ein Jahr aus.
Nur wird das Jahr in der Textbox1 als Text ausgegeben.
Ich möchte wenn ich zB. 2012 auswähle,das das Jahr mit 1.1.2012 in A1 eingetragen wird.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß
Heinz
Option Explicit
Private Sub CommandButton1_Click()
UserForm7.Hide
UserForm4.Hide
UserSel = "Abort"
End Sub
Private Sub CommandButton2_Click()
Sheets("Formel").Range("A1") = TextBox1.Text
UserForm7.Hide
UserForm4.Hide
Call Neuer_Schichtplan
End Sub
Private Sub SpinButton1_SpinDown()
TextBox1.Value = TextBox1.Value - 1
End Sub
Private Sub SpinButton1_SpinUp()
TextBox1.Value = TextBox1.Value + 1
End Sub
Private Sub UserForm_Initialize()
TextBox1.Value = 2010
End Sub