userform>Textbox>Format

• userform>Textbox>Format von kellerkind42 vom 01.07.2008 08:12:43
• AW: userform>Textbox>Format - von Hajo_Zi am 01.07.2008 08:15:11
• uppps.. Noch offen... - von kellerkind42 am 01.07.2008 08:44:20
  • AW: uppps.. Noch offen... - von Hajo_Zi am 01.07.2008 08:46:36
    • Ahaaa... TextBox3.Text = Cells(r, 3).text - von kellerkind42 am 01.07.2008 09:18:41

Betrifft: userform>Textbox>Format
von: kellerkind42

Geschrieben am: 01.07.2008 08:12:43

Hallo.
mit dem u.a. UserForm_Initialize lade ich 24 Textboxen.
Wie kann ich z.B. Textbox 13 dazu bringen, mir den Wert in € anzugeben?
Oder Textbox 2 "Zellformatiert" mit dem Wort "ltr.", also den Wert 1,5 und "ltr." ?
Für eine Hilfe bedanke ich mich schon einmal im voraus.
Gruß Reinhardt.
For Each TBox In USF_Material.Controls
If UCase(TypeName(TBox)) = "TEXTBOX" Then
'TBox.BackColor = RGB(230, 230, 230)
TBox.BackColor = RGB(255, 255, 255)
TBox.Text = ""
TBox.Locked = True
End If
Next TBox

Betrifft: AW: userform>Textbox>Format
von: Hajo_Zi
Geschrieben am: 01.07.2008 08:15:11
Hallo Nick,
falls es so schon in der Zelle steht
Textbox13=Range("A1").Text

Betrifft: uppps.. Noch offen...
von: kellerkind42

Geschrieben am: 01.07.2008 08:44:20
Hallo,
ich habe mist gemacht.
Meine Textboxen werden geladen bei:
Sub ComboBox1_Change()
'füllt die combobox1 mit den Datensätzen
Dim r%
Dim TBox As Control
r = ComboBox1.ListIndex + 3
TextBox1.Text = Cells(r, 1)
TextBox2.Text = Cells(r, 2)
TextBox3.Text = Cells(r, 3)
Wie kann ich HIER das Format auf z.B. "Währung" stellen?
Gruß Reinhardt.

Betrifft: AW: uppps.. Noch offen...
von: Hajo_Zi
Geschrieben am: 01.07.2008 08:46:36
Hallo Reinhard,
warum offen? Reagiere doch mal auf die Antwort.
Gruß Hajo

Betrifft: Ahaaa... TextBox3.Text = Cells(r, 3).text
von: kellerkind42

Geschrieben am: 01.07.2008 09:18:41
.