Hallo werner,
das Dumme ist, dass in Label1 und 2 Strings stehen. Wenn du einfach
Label3.caption=Label1.caption+Label2.caption
schreibst, erhälst du logischerweiser
1.101 mm3,022 mm.
Also erst wieder in Zahlen umwandeln, dann addieren und wieder formatieren:
Label3.Caption = Format(CDbl(CStr(CDbl(Left(Label1.Caption, Len(Label1.Caption) - 2)) + _
CDbl(Left(Label2.Caption, Len(Label2.Caption) - 2)))), "###0.000 mm")
Ich verwende CDbl anstelle von Val, weil man dann nicht Probleme mit dem Dezimalzeichen (. oder ,) hat. Allerdings verlangt CDbl einen nummerisch interpretierbaren Wert, weshalb die "mm" erst abgetrennt werden müssen.
Gruß
Holger
werner schrieb am 21.02.2009 18:37:39:
VBA Mathematik
Hallo….
Userform 1 gibt einen Formatierten Wert in Label1 von Userform3
Userform3.Label1.Caption = Format(Val(Wert), "###0.000 mm")
Userform 2 gibt einen Formatierten Wert in Label2 von Userform3
Userform3.Label2.Caption = Format(Val(Wert), "###0.000 mm")
In Userform 3 Werden die Werte von Label 1 und Label 2 angezeigt. In Label 3 soll die Summe von Label1 und Label2 im gleichen Format angezeigt werden.
Label1 1.101 mm
Label2 3,022 mm
Label3 4,123 mm
Gruß
Werner
|