---

Wie kann man Strings mathematisch addieren 

Beispiel: "1,1 mm" + "2,2 mm" = "3,3 mm"

------------------
Grüße xymaddin
EB Power User

[Diese Nachricht wurde von xymaddin am 16. Feb. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für eure mühen aber ich bin selber drauf gekommen:

Function TextKonvert(Text As String) As Double
Dim TextArray1() As String
Dim Text2 As String
Dim TextArray2() As String
Dim Text3 As String

TextArray1 = Split(Text)

Text2 = TextArray1(0)

TextArray2 = Split(Text2, ",")

Text3 = TextArray2(0) & TextArray2(1)

TextKonvert = Text3 / 100

End Function

dies ist meine Lösung

------------------
Grüße xymaddin
EB Power User

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi xymaddin,
obwohl du schon eine Lösung gefunden hast, möchte ich noch einen Gesichtspunkt ansprechen, der flexibler ist.  Wenn es sich bei den zu berechnenden Inhalten um Werte aus Attributen mit Einheiten handelt, solltest du überlegen, ob du auf die Nutzung der Berechnung durch EB umstellst. Der Vorteil ist, dass dann auch mit unterschiedlichen Einheiten richtig gerechnet wird. Wenn es sich um ein selber angelegtes Attribut handelt, muss man sich vorher "nur" das richtige Einheitenobjekt beschaffen - dann geht es auch.

Gruß WickieEB

------------------
Wer A sagt, der muss nicht B sagen. Er kann auch erkennen, dass A falsch war. (Bertold Brecht)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe ein Makro geschrieben welches die Breiten einzeler Geräte unter Klemmleisten addiert und unter der Klemmleiste einfügt damit ich im Layout meiner Schränke ein LS001 Shape verwenden kann daher wäre das nicht unbedingt hilfreich gewesen

Trotzdem danke für die Erkenntnis

------------------
Grüße xymaddin
EB Power User

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP