Gruppe
UDF
Problem
Wie kann ich ein in einer Zelle stehendes Ergebnis einer durch Zellwerte zusammengesetzte Formel auf seinen Wahrheitswert prüfen? In Zelle A1 steht "3", in Zelle B1 "+", in Zelle C1 "5", in Zelle D1 "=" und in Zelle E1 "8". In Zelle F1 soll als Wahrheitsprüfung WAHR angezeigt werden.
StandardModule: basMain
Function Pruefung( _
sA As String, _
sB As String, _
sC As String, _
sD As String, _
sE As String) As Boolean
Dim sFormula As String
sFormula = "=" & sA & sB & sC & sD & sE
Pruefung = Evaluate(sFormula)
End Function