Evaluate Zelle mit Zahlen und Wörtern
18.09.2016 20:03:42
Anton Buderus
Hallo,
ich suche eine Möglichkeit z.B. folgenden Inhalt einer Zelle berechnen zu lassen:
A1: (3*2)m²*2Stück+5m² Fläche_unten: +3
A2: 20
A1: enthält also den Text der gefiltert und berechnet werden soll
A2: das Ergebnis
Um ohne Wörter und Buchstaben zu berechnen, nutze ich diese VBA-Funktion:
Function ev(r As Range) As Variant
r2 = Replace(r.Value, ",", ".", 1)
ev = Evaluate(r2)
End Function
Vorgenannte Funktion funktioniert prima. Aber was müsste geändert werden, so daß die Berechnung auch mit Worterklärungen möglich ist, d.h. die Wörter zur Berechnung rausgefiltert werden?