Ich möchte über Userform(TextBox), ein Datum im Tabellenblatt eingeben.
Beim starten der Userform soll aber schon das heutige Datum erhalten sein.
Gruß Smoky
Textbox1=date
Gruß Hajo
Gruß Smoky
Private Sub UserForm_Initialize()
Gruß Hajo
Gruß Smoky
woher soll ich ohne Deinen Code wissen warum er nicht läuft. ie Glaskugel habe ich noch nicht.
Der Code müßte ungefähr so aussehen.
Gruß Hajo
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub SpinButton1_Change()
TextBox1 = Spinbotton1
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Date
End Sub
Private Sub SpinButton1_SpinDown()
TextBox1 = CDate(TextBox1) + 1
End Sub
Private Sub SpinButton1_SpinUp()
'TextBox1 = CDate(TextBox1) - 1
End Sub
entferne folgenden Teil
Gruß Hajo
Gruß Smoky