Thema Datum  Von Nutzer Rating
Antwort
21.02.2009 18:37:39 werner
NotSolved
Blau Aw:VBA Mathematik
22.02.2009 09:12:24 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
22.02.2009 09:12:24
Views:
844
Rating: Antwort:
  Ja
Thema:
Aw:VBA Mathematik
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.02.2009 18:37:39 werner
NotSolved
Blau Aw:VBA Mathematik
22.02.2009 09:12:24 Holger
NotSolved