Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Format n. verlassen textbox

Format n. verlassen textbox
Walter
Guten Abend zusammen,
wenn ich eine Textbox auf einer UF eine Zahl eingegeben habe,
möchte ich gern das Format: #.##0,00
habe dies:
Private Sub TextBox4_Enter()
TextBox4.BackColor = &HFFFFC0                    'RGB(255, 255, 255)
TextBox4.SetFocus
With TextBox4
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
mfg walter mg
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Format n. verlassen textbox
05.03.2012 19:19:47
Hajo_Zi
Hallo Walter,
benutze den Befehl Format()

AW: Format n. verlassen textbox
05.03.2012 19:42:11
Walter
Hallo Hajo,
was soll ich den reinsetzen ? Wo?
walter mg
AW: Format n. verlassen textbox
05.03.2012 19:43:56
Hajo_Zi
Hallo Walter,
Excel hat auch eine hilfe
Textbox1=Format(textbox1,"#,##0.00")

Anzeige
leider
05.03.2012 19:55:46
Walter
Hallo Hajo,
habe so reingesetzt:
Private Sub TextBox3_Enter()
TextBox3 = Format(TextBox3, "#,##0.00")
TextBox3.BackColor = &HFFFFC0                    'RGB(255, 255, 255)
TextBox3.SetFocus
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
wenn ich was eingegeben habe, z.b. steht 450, wenn ich die TB wieder
aktiviere steht: 450,00 drin
mfg walter mg
Anzeige
AW: leider
05.03.2012 19:58:43
Hajo_Zi
Hallo Walter,
ich hätte vermutet das steht nach Enter drin?
Dir ist schion bekannt das man bei Herber.de nur den lletzten Beitrag sieht. In Deinem Beitrag steht nicht drin was offen, obwohl der Beitrag als offen gekennzeinet ist.
Gruß Hajo
Anzeige
entschuldige Hajo !!!
05.03.2012 20:12:56
Walter
AW: entschuldige Hajo !!!
05.03.2012 20:15:04
Hajo_Zi
was ist an Leer offen?
Warum eigentlich 2x SetFocus ?
05.03.2012 19:57:51
Matthias
Hallo
With TextBox4
.BackColor = &HFFFFC0                    'RGB(255, 255, 255)
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.Text = Format(.Text, "#,##0.00")
End With
Gruß Matthias
Anzeige
klappt Danke Matthias -)
05.03.2012 20:14:41
Walter
Guten Abend Matthias,
danke hat geklappt !
So eingesetzt:
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.BackColor = &HFFFFC0 'RGB(255, 255, 255)
TextBox3.SetFocus
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.Text = Format(.Text, "#,##0.00")
End With
Schönen Abend noch !
mfg Walter mg
Anzeige
Du hast doch wieder 2 x SetFocus drin
08.03.2012 16:00:02
Matthias
Hallo
 With TextBox3
.BackColor = &HFFFFC0 'RGB(255, 255, 255)
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
.Text = Format(.Text, "#,##0.00")
End With
Gruß Matthias
Habe rausgenommen ! -)
08.03.2012 20:20:24
Walter
Hallo Matthias,
ja stimmte, habe rausgenommen,
mfg walter mg
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige