Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

userform>Textbox>Format

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

GrußformelHomepage


  

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

.