Microsoft Excel

Herbers Excel/VBA-Archiv

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

Dezimalstellen in Textbox | Herbers Excel-Forum


Betrifft: Dezimalstellen in Textbox von: Manuel
Geschrieben am: 29.12.2009 14:00:35

Hallo Zusammen,

ich hab mal wieder ein Problem. Und zwar, wie kann ich in einer Textbox, welche ich per VBA aus einer Tabelle auslese, auf 2 Stellen hinterm Komma begrenzen???

Ich habs mal versucht mit:

Private Sub UserForm_Activate()

        'Legt das Format für TextBox16 auf 2 Stellen nach dem Komma fest.
        Me.TextBox16.Text = Format("#,##0.00")
End Sub

Funktioniert aber net! :(

  

Betrifft: AW: Dezimalstellen in Textbox von: JoWE
Geschrieben am: 29.12.2009 14:18:04

So etwa?
Me.TextBox1 = Round(Sheets(1).[C3], 2)


  

Betrifft: AW: Dezimalstellen in Textbox von: Manuel
Geschrieben am: 29.12.2009 14:24:40

Funktioniert leider nicht.


  

Betrifft: AW: Dezimalstellen in Textbox von: hary
Geschrieben am: 29.12.2009 14:26:32

Hallo
so?
TextBox16 = Format(Cells(1, 1), "0.00") ' Zelle noch anpassen
gruss hary


  

Betrifft: AW: Dezimalstellen in Textbox von: Manuel
Geschrieben am: 29.12.2009 14:43:22

Geht auch nicht. Ich versteh auch nicht, warum Cells in der Formel ist wenn ich eine Textbox formatieren möchte?


  

Betrifft: AW: Dezimalstellen in Textbox von: hary
Geschrieben am: 29.12.2009 14:50:20

Hallo Manuel
Die Textbox selber kannst Du nicht formatieren, nur deren Inhalt.
Gruss hary


  

Betrifft: AW: Dezimalstellen in Textbox von: JoWE
Geschrieben am: 29.12.2009 14:51:28

Du hattest doch geschrieben, der Wert der Textbox würde aus einer Tabelle ausgelesen?
Demzufolge müsste der Wert also aus einer Zelle ausgelesen werden, oder?!


  

Betrifft: AW: Dezimalstellen in Textbox von: Manuel
Geschrieben am: 29.12.2009 15:10:47

Ja, aber die Zelle variert, der code ums auszufüllen in Kurzform ist:

...

For nZaehler1 = 2 To 3000
Range("A" & Trim(Str(nZaehler1))).Select
If ActiveCell.Value = CB1 = True Then GoTo Ausfüllen
Next nZaehler1

Exit Sub

Ausfüllen:
Range("AP" & Trim(Str(nZaehler1))).Select
Me.TextBox16 = ActiveCell.Value

End Sub


  

Betrifft: AW: Dezimalstellen in Textbox von: JoWE
Geschrieben am: 29.12.2009 15:21:51

ansetzen in "Ausfüllen:'
statt: Me.TextBox16 = ActiveCell.Value
schreibst Du: Me.TextBox16 = Round(ActiveCell.Value,2)


  

Betrifft: AW: Dezimalstellen in Textbox von: JoWE
Geschrieben am: 29.12.2009 14:42:00

Hatte es mit XL2003 getestet:

Annahme:
Der Wert 185,23567 steht in Tabelle1 in $C$3

Userform:
Userform1 mit textbox1 und Commandbutton1
- Code hinter Commandbutton1=

Private Sub CommandButton1_Click()
    Me.TextBox1 = Round(Sheets(1).[C3], 2)
 End Sub
Ergebnis der Textbox= 185,24


  

Betrifft: AW: Dezimalstellen in Textbox von: Manuel
Geschrieben am: 29.12.2009 15:12:00

Hmm, habs versucht anzupassen, hab aber irgendwie den Durchblick heute nicht! :/


  

Betrifft: AW: Dezimalstellen in Textbox von: hary
Geschrieben am: 29.12.2009 15:17:25

Hallo Manuel

TextBox16 = Format(ActiveCell.Value, "0.00")

gruss hary


  

Betrifft: AW: Dezimalstellen in Textbox von: Manuel
Geschrieben am: 29.12.2009 15:23:14

Das wars... vielen Dank für eure Hilfe!


Beiträge aus den Excel-Beispielen zum Thema "Dezimalstellen in Textbox "