Excel als Taschenrechner

Peter_L_69 · 2. Februar 2018

Hallo und Grüße an alle!

Beim Rechnen mit dem Taschenrechner des Computers hat man das Problem, dass man Eingabefehler nicht mehr kontrollieren kann wie am Rechner mit Papierstreifen. Daher wäre ein "Excel-Tabellen-Taschenrechner" ideal und man kann das Gerechnete auch noch ausdrucken.

Deshalb meine Frage an die Community:

Wie kann ich in Spalte B1 das Ergebnis einer Rechenoperation ausgeben, die ich in einer einzelnen Spalte wie z.B. in A1 eingegeben habe?

z.B.: Spalte A1 Eingabe: 10*10 +Enter Spalte B1 Ausgabe: 100

z.B.: Spalte A1 Eingabe 100-20 +Enter Spalte B1 Ausgabe: 80

z.B.: Spalte A1 Eingabe 100/50 +Enter Spalte B1 Ausgabe: 2 usw.

Wenn man "="+10*10 (=10*10) eingibt, zeigt Spalte A1 nicht mehr "10*10", d.h. den Rechenweg, sondern nur noch das Ergebnis "100" an. Die Eingabe soll in Spalte A1 aber sichtbar stehen bleiben, damit man die Kontrolle des Rechenwegs hat, das Ergebnis sollte nur in Spalte B1 angezeigt werden. Außendem ist die Eingabe von "=" zu Anfang jeder Rechenzeile sehr umständlich (ginge vielleicht noch mit der Autokorrektur).

Das System sollte für alle Grundrechenarten gelten wie am Taschenrechner. (Vielleicht auch mit Wurzel, Potenzen und Prozentrechnung?)

Die Zahlen in verschiedenen Spalten einzugeben und dann das Ergebnis in einer formatierten Ergebniszelle auszugeben nützt hier nichts, da in einer Spalte keine Formatierungen aller Rechenarten möglich ist. Außerdem ist die Eingabe auch sehr umständlich.

Weiß jemand eine Lösung für Excel 2010?

Grüße an alle

Peter L_69

5547815d-c7ff-4f9f-8

Vielen Dank für die Antwort, aber alles was bei der Recheneingabe mit Shift z.B. "=" läuft, ist zu aufwendig.

Claus hat das Problem gelöst.

Ich habe es noch etwas aufgehübscht mit einem Button/Macro "Tabellenwerte löschen" und gleichzeitig "den Cursor auf das erste Eingabefeld setzen", einer Feldbegrenzung auf ein Rechen-Eingabefeld (durch Blattschutz -"Scroll Area" geht nicht, weil dann die
Summe nicht updatet-), mit einer permanenten Summenangabe unten und Runden in derErgebnisspalte.

Das untere Bild zeigt einen Taschenrechner zur Rechnungskontrolle mit 19% MWSt

Grüße

Peter_L69

5547815d-c7ff-4f9f-8

Hallo Claus,

herzlichen Dank für die Hilfe. Damit hast du mir eine echte Freude bereitet!

Die Autokorrektur habe ich wieder zurückgestellt, zumal die 2. Version keine Punkte in den Dezimalzahlen verträgt.

Viele Grüße

Peter L_69

Claus Busch

Hallo Peter,

lade dir mal hier die Datei herunter, denn Makros sind in OneDrive deaktiviert:

https://1drv.ms/x/s!AqMiGBK2qniTgcBqV-3qkrcg2aRw3w

Claus

Claus Busch

Hallo Peter,

nimm den zweiten Code, dann brauchst du den Umweg über die AutoKorrektur nicht. Der zweite Code klappt auch mit Komma.

Claus

5547815d-c7ff-4f9f-8

Hallo Peter,

formatiere deine Spalte A als Text, damit keine Umformatierung z.B. bei 10-2 in ein Datum erfolgt.

Füge folgenden Code in das Codemodul des entsprechenden Tabellenblattes ein:
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Is Nothing Or _

   Target.Count > 1 Then Exit Sub

   

If Len(Target) > 0 Then

   Target.Offset(, 1) = Evaluate("=" & Target)

Else

   Target.Offset(, 1) = ""

End If

End Sub
Claus

Alles Leiden kommt aus Nichtwissen.

Zitat Dalai Lama

Hallo Claus,

ich bin hell begeistert von deiner obigen Lösung. Wie lange habe ich danach gesucht! Vielen Dank, dass du mich von meinem "Leiden" erlöst hast. Der Code klappt super.

Allerdings musste ich wegen der Eingabe von Dezimalzahlen in der Autokorrektur aus dem "," einen "." machen, sonst kommt da "#WERT" raus (lässt sich das auch mit VBA lösen, weil man dadurch in anderen Exceltabellen in Textzeilen kein Komma mehr schreiben
kann?), und ich habe die Ergebnisspalte als Zahl mit 2 Dezimalstellen formatiert, so dass man eine ordentliche Rundung erhält.

Den 2. Code probiere ich noch aus. Ich werde mich dann noch mal melden.

Außerdem werde ich noch in meinem schlauen Excel-VBA-Buch von Bernd Held versuchen zu begreifen, was die einzelnen Befehle und Zeilen bewirken und mit "REMs" versehen.

Also zunächst einmal 100 Punkte!!!

Anmerkung zu Excel:

Wenn es Excel schon vor 60 Jahren gegeben hätte, wäre das damals für mich als Schüler die Erfüllung gewesen. Ich kann nicht verstehen, warum das heute in der Schule nicht gelehrt wird!

Viele Grüße

Peter L_69

(Excel- und VBA-begeisteter mittlerer Anfänger -leider erst jetzt-)

Hi,

willkommen im Windows Forum!

Excel als Taschenrechner - Similar Threads - Excel Taschenrechner	Forum	Datum
Bearbeiten von Excel und Word Dateien nicht möglich Bearbeiten von Excel und Word Dateien nicht möglich: Warum bekomme ich mit meinem Microsoft Family 365 Account folgende Fehlermeldung, wenn ich versuche eine Excel Datei mit meinem mobilen Gerät zu bearbeiten?Dieses Konto gestattet das Bearbeiten...	Microsoft Office	Donnerstag um 19:33 Uhr
Bei ActiveWorkbook.SaveAs hängt sich Excel auf, ohne Fehler, friert einfach ein Bei ActiveWorkbook.SaveAs hängt sich Excel auf, ohne Fehler, friert einfach ein: hello @all ich habe das Problem, dass ActiveWorkbook.SaveAs einfriert ohne Fehlermeldung!Ich arbeite auf Mac Version 16.66.1, sollte auf Windows und Mac funktionieren.Sub Save_txts...	Microsoft Office	Dienstag um 18:53 Uhr
ActiveWorkbook.SaveAs hängt sich Excel auf ohne fehler friert einfach ein ActiveWorkbook.SaveAs hängt sich Excel auf ohne fehler friert einfach ein: hello @all ich habe das problem das ActiveWorkbook.SaveAs einfriert ohne Fehlermeldung!ich arbeite auf Mac version 16.66.1 solte auf Windows und Mac funkenSub Save_txts Application.DisplayAlerts =...	Microsoft Office	Dienstag um 18:13 Uhr
SVG-Datei in Excel einfügen SVG-Datei in Excel einfügen: Hallo!Ich möchte eine SVG-Datei in Excel einfügen.Ich verwende Microsoft office 365 Single.Wenn ich über "Einfügen" "Bilder von diesem Gerät" auswähle und meine SVG-Datei auswähle, wird mir nur...	Microsoft Office	Dienstag um 12:32 Uhr
Excel, Funktionen Textvor und Textnach kombiniert, evtl. Textteilen Excel, Funktionen Textvor und Textnach kombiniert, evtl. Textteilen: Sehr geehrte Damen und Herren,ich möchte einen Datenstring, getrennt durch Leerzeichen, in 5 Spalten aufteilen. Da die Strings ja eine unterschiedliche Länge aufweisen, suche ich eine brauchbare...	Microsoft Office	Montag um 17:53 Uhr
Excel, Formel TextvorTextnach Funktion kombininiert, evt. Textteilen Excel, Formel TextvorTextnach Funktion kombininiert, evt. Textteilen: Sehr geehrte Damen und HerrenIch möchte aus einem Datenstring, getrennt durch Leerzeichen, in 5 Spalten aufteilen. Da die String ja ein unterschiedliche Länge aufweisen, suche ich eine brauchbare...	Microsoft Office	Montag um 17:12 Uhr
Help needed: Conditional formatting in Gantt chart based on task status Excel - German Help needed: Conditional formatting in Gantt chart based on task status Excel - German: Hello everyone,I’m working on a project plan Workplan in Excel with a Gantt chart layout. The Excel file is in German, but I hope someone can still help me.Here’s the situation:I have start and...	Microsoft Office	22. April 2025

Excel als Taschenrechner