Textbox auf UF + Datum

Forumthread: Textbox auf UF + Datum

01.11.2005 15:41:20

WalterP

Schönen Feiertag,
für die die Ihn haben.
Ich möchte gern wissen wie ich das anstelle:
Habe eine UF erstellt(geschaft) und möchte bei der Eingabe der Textbox1,
das der Wert in der aktuellen Mappe "G5" geschrieben wird.
Ferner möchte ich gern eine andere Textbox2 das ich ich hier das Datum eingebe
und zwar wie in eine Zelle also: "02-5-05" = in Zelle "G6" 02.05.2005.
Ferner sollen die Daten "G5 + G6"wieder "reingeholt werden wenn ich die UF
aufrufe.
Gruß Walter

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox auf UF + Datum

01.11.2005 16:30:07

Unbekannter
AW: Textbox auf UF + Datum

01.11.2005 17:30:02

WalterP
Bitte dringend!!!

01.11.2005 19:56:35

WalterP
AW: Bitte dringend!!!

01.11.2005 20:50:27

Matthias
Danke funktioniert

01.11.2005 21:47:29

WalterP
Danke funktioniert

01.11.2005 21:47:38

WalterP

AW: Textbox auf UF + Datum

01.11.2005 16:30:07

Unbekannter


Private Sub TextBox1_Change()
Range("g5").Value = TextBox1.Text
End Sub

2. Du musst die Zelle mit dem jeweiligen Datum formatieren


Private Sub TextBox2_Change()
Range("g6").Value = TextBox2.Text
End Sub


Private Sub UserForm_Initialize()
TextBox1.Text = Range("g5").Value
TextBox2.Text = Range("g6").Value
End Sub

Gruß UN1

AW: Textbox auf UF + Datum

01.11.2005 17:30:02

WalterP

Hallo UN1,
habe alles so durchgeführt, klappt bis auf die Datumseingabe in der Textbox.
Wenn ich die Textbox selektiere, springt der Courser direkt an die letzte Stelle
und ich kann nicht eingeben, bzw. eine lange Zahlenreihe kommt dann.
Gruß WalterP

Bitte dringend!!!

01.11.2005 19:56:35

WalterP

Hallo UN1 und andere,
ich brauch für morgen dringend die Eingabe-Maske.
ES klappt soweit alles, NUR die Datums-Eingabe in die TextBox möchte ich genau wie in einer Zelle durchführen: "05-5-05" =anzeige in Zelle, bei der richtigen Formatierung:
"05.05.2005" .
Hier mein Makro:


Private Sub TextBox5_AfterUpdate()
Range("G9").Value = TextBox5.Text
TextBox5.Text = Range("G9").Value
Label11.Caption = Range("G12").Value                    'Nutzd.Dauer in Tage
End Sub

Gruß Walter

AW: Bitte dringend!!!

01.11.2005 20:50:27

Matthias

Hallo Walter,


Range("G9").Value = Format(TextBox5.Text, "mm-dd-yyyy")

Wird dann seltsamerweise umgedreht dargestellt.
Gruß Matthias

Danke funktioniert

01.11.2005 21:47:29

WalterP

Hallo Matthias,
super Danke funktioniert.
Gruß Walter

Danke funktioniert

01.11.2005 21:47:38

WalterP

Hallo Matthias,
super Danke funktioniert.
Gruß Walter

Forumthread: Textbox auf UF + Datum

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread