HERBERS Excel-Forum - die Beispiele

Thema: Wahrheitsprüfung einer mit Zellwerten zusammengestzten Formel

Home

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.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
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

Beiträge aus dem Excel-Forum zu den Themen UDF und Boolean

Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
UDF soll nicht auf Daten anderer Dateien zugreifen vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic UDF- Beschreibung
Berechnungsdauer einer UDF messen Hintergrudfarbe ändern??? Finde keine Lösung :-(
Probleme mit IsNumeric, Code per UDF UDF mittels Ereignis aktualisieren?
UDF, Minuszeichen vor Zahl auswerten nach Worksheet_Change werden UDF nicht ausgewertet
Excel anhalten bei UDF UDF
UDF, Rückgabewert Text anstelle Zahl Aufruf einer UDF, Fehler Objekt erforderlich
SQL in UDF ...(ByVal Cancel As MSForms.ReturnBoolean)
Werte einer UDF werden nicht aktualisiert Boolean: True = -1 ??
Private Sub Workbook_BeforeClose(Cancel As Boolean Aufruf von UDF mit Array
Workbook_BeforePrint(Cancel As Boolean) UDF: Semikolon vs Komma
UDF, erkennen in welcher Zelle die UDF steht Probleme mit UDF und Worksheet Ereignissen
Formeln über UDF vergleichen Boolean??
UDF Verweis checken Private Sub Workbook_BeforeClose(Cancel As Boolean
UDF Intellisense bei User defined functions (UDF)
VBA "Find" in UDF Boolean Zahler
UDF-Funktionen in eigener Kategorie UDF Function Variable Info erstellen
UDF, optionaler Parameter als Range, IsEmpty? UDF verschiedene Bereiche ändern
Makro aus UDF starten Reihenfolge von UDF's
UDF/ Berechnung Zuschlagszeiten AddIn UDF in anderem VBA-Project verwenden
Function as Boolean UDF und Array bzw. Matrix
UDF die Texte in Zahlen umwandelt Summewenns UDF über mehrere Tabellenblätter
Funktionsargumente für UDF's boolean?
Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Can UDF Reihenfolge Übergabeparamter führt zu #WERT