TextBox-Datum

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10,0
nach unten

Betrifft: TextBox-Datum
von: Smoky
Geschrieben am: 06.07.2002 - 22:38:11

Hallo zusammen
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

nach oben   nach unten

Re: TextBox-Datum
von: Hajo_Zi
Geschrieben am: 06.07.2002 - 22:41:22

Hallo Smoky

Textbox1=date

Gruß Hajo


nach oben   nach unten

Re: TextBox-Datum
von: Smoky
Geschrieben am: 06.07.2002 - 22:52:08

Hallo Hajo, vielen Dang erstmal!
Die TextBox arbeitet mit einem Spinbottom, zusammen.
Wo muß ich TextBox1=date eingeben?

Gruß Smoky


nach oben   nach unten

Re: TextBox-Datum
von: Hajo_Zi
Geschrieben am: 06.07.2002 - 22:54:01

Hallo Smoky

Private Sub UserForm_Initialize()

Gruß Hajo


nach oben   nach unten

Re: TextBox-Datum-Noch ne Frage
von: Smoky
Geschrieben am: 06.07.2002 - 23:10:03

Noch ne Frage Hajo,
Sobald ich die Userform starte,und das Drehfeld betätige, (um das Datum zu erhöhen), ist das Datum im TextBox verschwunden. Wie kann das?

Gruß Smoky


nach oben   nach unten

Re: TextBox-Datum-Noch ne Frage
von: Hajo_Zi
Geschrieben am: 06.07.2002 - 23:23:29

Hallo 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.


Private Sub SpinButton1_SpinDown()
    TextBox1 = CDate(TextBox1) + 1
End Sub

Private Sub SpinButton1_SpinUp()
    TextBox1 = CDate(TextBox1) - 1
End Sub

Gruß Hajo


nach oben   nach unten

Re: TextBox-Datum-Läuft leider nicht.
von: Smoky
Geschrieben am: 06.07.2002 - 23:35:43

Laüft leider nicht.
Bin Anfänger!!!

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


nach oben   nach unten

Re: TextBox-Datum-Läuft leider nicht.
von: Hajo_Zi
Geschrieben am: 06.07.2002 - 23:44:53

Hallo Smoky

entferne folgenden Teil


Private Sub SpinButton1_Change()
    TextBox1 = Spinbotton1
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Gruß Hajo


nach oben   nach unten

Re: TextBox-Datum "Danke"
von: Smoky
Geschrieben am: 06.07.2002 - 23:54:57

Hast mir sehr geholfen.

Gruß Smoky


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Solver zu langsam"