controls textbox formatieren

[Peter]

Folgendes Problem: In einem Arbeitsblatt wird in eine Zelle in Datum
eingegeben. Au einem zweiten Arbeitsblatt (Rechnungsformular) soll die Zelle
mit einer Textbox verbunden werden um das Datum an beliebiger Position
darzustellen. Die verknüpfte Textbox zeigt aber nur eine Zahl im internen
Exelformat für 27 August 1998 die Zahl 36034. Wie kann ich die Textbox im
Datumsformat darstellen_

Danke, Peter

[Hans W. Herber]

Hallo Peter,

wechsle im Tabellenblatt in den Entwurfsmodus, doppelklicke die Textbox und
gib in das sich jetzt öffnende Modulblatt den folgenden Code ein:

Private Sub TextBox1_Change()
With Tabelle2
TextBox1.Text = Format(.[a1], "dd.mm.yy")
End With
End Sub

hans

########################################################
# Herber's Excel-Server - letztes Update: 26.08.98 #
# http://www.herber.de - Microsoft MVP - Excel #
# Neu bei den Demos97: Zellauswahl verhindern #
# Excel-NG-Autoren: http://www.herber.de/dejanews.htm #
########################################################

Peter <haf...@technologist.com> wrote in message
ub2BFVZ...@uppssnewspub05.moswest.msn.net...

[Peter]

Danke für den Tip! Noch ein kleines Problem: Die Textbox wird nicht
automatisch aktualisiert. Erst wenn ich das Datum in der Textbox markiere
und lösche erscheint der geänderte Wert. Wie kann ich das Feld automatisch
aktualisieren, sobald man ein neues Datum eingiebt?

Danke, Peter

[Hans W. Herber]

Hallo Peter,

das kann ich nicht nachvollziehen. Wenn die TextBox über LinkedCell mit der
Eingabezelle verbunden ist, ändert sich der Wert in der Textbox, wenn sich
der Zellwert ändert und der Wert in der Zelle, wenn sich der Wert in der
TextBox ändert. Die TextBox befindet sich doch nicht mehr im Entwurfsmodus,
oder?

Ändere den Code dennoch in die etwas sauberere Form:

Private Sub TextBox1_Change()
With TextBox1
.Text = Format(.Text, "dd.mm.yy")
End With
End Sub

hans

########################################################
# Herber's Excel-Server - letztes Update: 26.08.98 #
# http://www.herber.de - Microsoft MVP - Excel #
# Neu bei den Demos97: Zellauswahl verhindern #
# Excel-NG-Autoren: http://www.herber.de/dejanews.htm #
########################################################

Peter <haf...@technologist.com> wrote in message

exTpKcj...@uppssnewspub04.moswest.msn.net...