Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
988to992
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
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

userform>Textbox>Format

userform>Textbox>Format
01.07.2008 08:12:43
kellerkind42
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: userform>Textbox>Format
01.07.2008 08:15:00
Hajo_Zi
Hallo Nick,
falls es so schon in der Zelle steht
Textbox13=Range("A1").Text

uppps.. Noch offen...
01.07.2008 08:44:00
kellerkind42
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.

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

Anzeige
Ahaaa... TextBox3.Text = Cells(r, 3).text
01.07.2008 09:18:00
kellerkind42
.

211 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige