Rechnen mit Texten

Rechnen mit Zahlen
Ziel ist es, aus einem Text mit eingegebenen Zahlen und Rechenoperatoren die Aufgabe zu
berechnen.
Beispiel - Wie viel Liter Blut pumpt das Herz an einem Tag:
(5,6 Liter kleiner Kreislauf zur Lunge + 5,6 l großer Kreislauf in den Körper) je Minute * 60
Minuten * 24Stunden
Lösung:
Hier Excel 2010, Entwicklungstools muss aktiviert sein
1. Schritt
Visual Basic - Modul1 - folgende Funktion eingeben:

Function Sauber(x As String) ' das kann auch ein anderer zulässiger Name sein
' testet den übergebenen String  auf die Zeichen "(", ")", "*", "/", "+", ",", "%", "^", "-"  _
und die
' Ziﬀern 0 bis 9
' alle nicht genannten Zeichen werden ausgeﬁltert, was bleibt ist die Rechenaufgabe in   _
_
der die
' oben genannten Zeichen verwendet werden.
' Achtung! Sehr wich6g: alle Klammern richtig setzen
Sauber = ""
For i = 1 To Len(x)
If Mid(x, i, 1) = "(" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = ")" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = "*" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = "/" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = "+" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = "-" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = "%" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = "," Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) = "^" Then Sauber = Sauber + Mid(x, i, 1)
If Mid(x, i, 1) >= "0" And Mid(x, i, 1)

2. Schritt
Ein Tabellenblatt vorbereiten was wo stehen soll, wo die Aufgabe und wo das Ergebnis
Die Spalte der Aufgabe als Text, die Spalte des Ergebnisses als Zahl formatieren.
3. Schritt
Rechtsklick Maus auf Zelle C2 - Namen deﬁnieren
bezieht sich auf: =Auswerten(Sauber(B2)) eingeben
Name: hier Ergebnis - OK
4. Schritt
In Zelle C2 eingeben =Ergebnis - den Namen aus Schritt 3
5. Schritt
Die Rechenaufgabe in Zelle B2 eintippen
(5,6 Liter kleiner Kreislauf zur Lunge + 5,6 l großer Kreislauf in den Körper) je Minute * 60 Minuten * 24Stunden
Die Funktion Sauber liefert folgenden String: (5,6+5,6)*60*24
In C2 ist das Ergebnis sichtbar, dann in den Spalten A, D und E den Rest ausfüllen
Durch Anfassen der rechten unteren Ecke kann der Inhalt der Zelle C2 beliebig nach unten
kopiert werden
Fertig und viel Spaß beim Rechnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Function Sauber(x As String) As String Dim i As Long Const s = "()*/+-%,^0123456789" For i = 1 To Len(x) If InStr(s, Mid(x, i, 1)) > 0 Then Sauber = Sauber + Mid(x, i, 1) Next End Function Sub SaubererTest() MsgBox Sauber("(5,6 Liter kleiner Kreislauf zur Lunge + 5,6 l " & _ "großer Kreislauf in den Körper) je Minute * 60 Minuten * 24Stunden") End Sub

Ich mache das wie folgt, Wolfgang:

	B	C	D	E	F	G	H	I
1	(5,6 Liter kleiner Kreislauf + 5,6 l großer Kreislauf) je Minute 60 Minuten24Stunden		16 128 l	=--MaskOn(T2Form(B1);"num")
2			16 128 l	=Compute(WECHSELN(MaskOn(B1;"num";"+,()");",";"."))*
3			16 128 l	=TextBerechnung
4			*TextBerechnung*	=AUSWERTEN(MaskOn(B1;"num";"+,()"))*

Das Liter-Symbol in Spalte D resultiert aus benutzerdefiniertem Format, die in Spalte E gezeigten Fmln sind mögliche Varianten, wobei die dritte aus der ganz unten als 4. dargestellten benannten Fml mit XLM-Fkt AUSWERTEN resultiert und unter Einsatz der UDF MaskOn* aus dem Archiv auch nachvollzogen wdn kann. Die beiden 1.Fmln benötigen dagg noch eine weitere, unveröffentlichte UDF, können aber direkt in ZellFmln verwendet wdn.
* Diese entspricht in der Anwendung hier also deiner UDF Sauber, ist aber wesentlich universeller, d.h., kann mehrere ähnlich gelagerte Aufgaben lösen.
Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread