Zeile berechnen mit Text und Zahlen
17.10.2016 10:17:59
Antonio
vor einigen Wochen habe ich folgendes Makro hier im Forum erhalten. Leider kann man aber keine Kommazahlen ausrechnen. Kann man dies nicht irgendwie erreichen?
3,5 Liter * 2 Behälter = 7,0 Irgendwie im folgenden Makro dies einbauen: r2 = Replace(r.Value, " _
,", ".", 1)
Function ev(t As String) As Variant
Dim i As Long
Dim t1 As String
Dim t2 As String
For i = 1 To Len(t)
t1 = Mid$(t, i, 1)
If t1 Like "[0-9()+-/*]" Then
t2 = t2 & t1
End If
Next
Debug.Print t2
ev = Evaluate(t2)
End Function
Anzeige