Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1252to1256
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
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

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")

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
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
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
Anzeige
Habe rausgenommen ! -)
08.03.2012 20:20:24
Walter
Hallo Matthias,
ja stimmte, habe rausgenommen,
mfg walter mg

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige