Tabellenkalkulation

Date

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, Textbox3 [b]Date [/b]funktioniert nicht. Was mache ich falsch ? Private Sub UserForm_Initialize() TextBox1.Value = Application.UserName End Sub Private Sub TextBox2_Change() TextBox2.Value = Time End Sub Private Sub TextBox3_Change() TextBox3.Value = Date End Sub Private Sub UserForm_Activate() Do DoEvents TextBox2.Value = Time Loop End Sub

Antwort 1 von Hajo_Zi

Hallo Nick,

Date, Left usw fehlt
http://www.ms-office-forum.net/forum/showthread.php?t=148516

Gruß Hajo

Antwort 2 von varginator

Hallo Mr. A,

versuchs mal mit

TextBox3.Value = Format(Now, "dd.mm.yy")

Wenn ich es richtig verstanden habe, willst du das aktuelle Datum (evtl. ändern des Formats)

Gruß Simon

Antwort 3 von Mr.A

Hallo Simon ,

ich möchte es nur angezeigt bekommt.

ich muss immer erst in Textbox3 anklicken u. die leertaste betätigen, damit es angezeigt bekomme

Gruß, Mr. A

Antwort 4 von varginator

Hallo Mr. A,

versuchs mal mit:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox3.value = Format(Now, "dd.mm.yy")
End Sub

Gruß Simon

Antwort 5 von Mr.A

Hallo Simon,

funktioniert SUPER !!

Danke
Danke
Danke
Danke
Danke
Danke
Danke
Danke
Danke
Danke
Danke
Danke

Ihr seid die besten !!!