zahlenformat userform label
Tom
gibt es eine moeglichkeit einem label auf einer userform
ein zahlenformat zuzuweisen?
gegeben ist folgendes:
2 textboxen, ein label und ein commandbutton
der code sieht forlgendermassen aus:
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Currency
a = TextBox1
b = TextBox2
c = a / b
UserForm2.Label1 = c
End Sub
nun moechte ich das ergebnis auf maximal 2 stellen
hinter dem komma aufrunden.
es soll nicht mit waehrung gerechnet werden,
die variable c habe ich nur mit currency deklariert um
die anzeige wenigstens auf 4 stellen zu begrenzen.
wie kann ich dem label ein zahlenformat zuweisen
ohne auf einem hilfstabellenblatt zu rechnen?
win7 mit excel2003 und excel2007
mfg
thomas koch
Claus Busch
Am Sun, 20 Mar 2011 04:10:43 -0700 (PDT) schrieb Tom:
> Private Sub CommandButton1_Click()
> Dim a As Integer
> Dim b As Integer
> Dim c As Currency
> a = TextBox1
> b = TextBox2
> c = a / b
> UserForm2.Label1 = c
> End Sub
ändere mal so ab:
UserForm2.Label1 = Format(c, "0.00")
Mit freundlichen Grüssen
Claus Busch
--
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
Tom
besten dank funktioniert wie gewuenscht
schoenen sonntag noch
mfg
thomas koch
Michael Schwimmer
> gibt es eine moeglichkeit einem label auf einer userform
> ein zahlenformat zuzuweisen?
Direkt nicht.
> nun moechte ich das ergebnis auf maximal 2 stellen
> hinter dem komma aufrunden.
Aufrunden oder Runden?
Zum Umwandeln einer Zahl in formatierten Text (Runden):
Debug.Print Format(1003.14159, "#,##0.00")
Zum Aufrunden:
a = 1003.14159
' Aufrunden
Debug.Print Application.WorksheetFunction.RoundUp(a, 2)
' Aufrunden und formatieren
Debug.Print Format(Application.WorksheetFunction.RoundUp(a, 2), "#,##0.00")
Im Formatstring solltest du unter VBA beachten, dass der Dezimaltrenner ein
Punkt und das Tausendertrennzeichen ein Komma ist.
Viele Grüße
Michael
Tom
auch dir vielen dank funktioniert ebenfalls bestens
mfg
thomas koch