Evaluate-Function
24.11.2016 11:40:19
Anton Buderus
Hallo!
1) Kann man diese Makro so modifizieren, dass Zahlen, welche rot formatiert sind, bei der Berechnung nicht berücksichtigt werden? Also, das hat den Sinn, dass ich zum Beispiel mal schnell Zahlen aus der zu berechnenden Zeile entnehmen will, aber eben nicht löschen.
2) Irgendwie habe ich das Gefühl, dass ich, wenn ich eine weitere Exceldatei öffne, dies Auswirkungen auf die Datei mit diesem Makro hat. Kann das sein? Ich habe das Makro in einem Modul, mit dem Namen Modul 1 eingefügt. Hat das dann Auswirkungen auf andere Exceldateien? Wie ist es richtig?
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 "[(-9*]" Then
If t1 = "," Then
t2 = t2 & "."
Else
t2 = t2 & t1
End If
End If
Next
Debug.Print t2
ev = Evaluate(t2)
End Function