Anzeige
Archiv - Navigation
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formatierung Textbox

Formatierung Textbox
15.12.2015 09:52:55
Uwe
Habe ein kleines Problem mit der Formatierung eines Textfeldes.
Lasse einige Textfelder per Doppelklick aus Listbox füllen, bekomme jedoch ein Textfeld nicht richtig angezeigt, da es sich um ein Datum handelt.
Hier der Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
UserForm1.TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
UserForm1.TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
UserForm1.TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "TT.MM.JJJJ")
End Sub
Danke

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung Textbox
15.12.2015 10:31:36
Rudi
Hallo,
versuchs mal mit
UserForm1.TextBox1 = format(cdate(ListBox1.List(ListBox1.ListIndex, 0)),"DD.MM.YYYY")
Gruß
Rudi

AW: Formatierung Textbox
15.12.2015 10:53:58
Uwe
Hallo Rudi,
bekomme leider wieder das falsche Resultat.
In der TextBox1 wird das Datum in einer Zahl angezeigt.
Anstelle von 14.12.2016 ist die Anzeige 42352 als Zahl.

AW: Formatierung Textbox
15.12.2015 10:58:34
Mustafa
Du müsstest doch DTPIcker verwenden.. hier würde ein Datumsformat übernommen werden

AW: Formatierung Textbox
15.12.2015 11:48:07
Uwe
Danke Mustafa werde mal probieren ob ich dies hin kriege.
Habe bisher noch nicht damit gearbeitet.

AW: Formatierung Textbox
15.12.2015 11:02:04
selli
hallo uwe,
versuch es mal über einen umweg.
Dim datDatum As Date
datDatum = CDate(ListBox1.List(ListBox1.ListIndex, 0))
UserForm1.TextBox1 = Format(datDatum, "DD.MM.YYYY")
gruß
selli

Anzeige
AW: Formatierung Textbox
15.12.2015 11:52:00
Uwe
Danke Selli bekomme leider auch hier nur das falsche Ergebnis.

AW: Formatierung Textbox
15.12.2015 12:52:32
selli
hallo uwe,
es würde allen sehr hilfreich sein, wenn du mal eine beispieldatei hochlädtst.
keiner will dein szenario nachbauen.
gruß
selli

AW:Mal 1
16.12.2015 08:12:04
hary
Moin
Listbox ist Text darum mal 1.
UserForm1.TextBox1 = CDate(ListBox1.List(ListBox1.ListIndex, 0) * 1)

gruss hary

Anzeige
AW: AW:Mal 1
16.12.2015 08:20:04
Uwe
Super - vielen Dank.
Gruß Uwe

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige