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
iPad Pro mit Magic Keyboard - Scrollen in Excel Online iPad Pro mit Magic Keyboard - Scrollen in Excel Online: Hallo. Ich nutze seit kurzem ein iPad Pro mit Magic Keyboard unter anderem mit Excel Online. Nun kann ich mit den Pfeiltasten plötzlich nicht mehr scrollen. Es geht jetzt immer das folgende...	Microsoft Office	Gestern um 21:33 Uhr
Frage zu einer Fehlermeldung in Excel Frage zu einer Fehlermeldung in Excel: Guten Tag liebes Forum, ich habe seit einigen Tagen ein Problem mit einer Fehlermeldung, sobald ich Excel öffne. Die Fehlermeldung ist auf dem Bildanhang dargestellt. Ich habe bereits einiges...	Microsoft Office	Gestern um 14:02 Uhr
Aus Excel Dokument senden - falscher Mailaccount Aus Excel Dokument senden - falscher Mailaccount: Moin.Ich kann aus Excel mit der Funktion "Senden" -> "Als PDF Anlage senden" ohne Probleme das Excel-Blatt versenden - allerdings wird es mit der @outlook.com Adresse gesendet. Ich habe aber auch...	Microsoft Office	Gestern um 12:13 Uhr
Excel Kontrollkästchen als Zellensteuerelement nicht verfügbar - Version 2402 Excel Kontrollkästchen als Zellensteuerelement nicht verfügbar - Version 2402: Hallo zusammen,für eine Checkliste würde ich gerne die Funktion des Zellensteuerelements "Kontrollkästchen" anwenden.keine Formular- oder ActiveX Checkbox SteuerelementeWoran kann es liegen, dass...	Microsoft Office	Gestern um 11:12 Uhr
Excel Verknüpfung findet keine ODS Dateien Excel Verknüpfung findet keine ODS Dateien: Ich habe eine ODS Excel Datei, die mit mehren anderen Dateien Verknüpft ist. Folgend sieht ihr meine Hauptdatei Bild1 und jede KW hat ihre eigene Datei die mit meiner Hauptdatei verknüpft ist. Die...	Microsoft Office	Dienstag um 13:52 Uhr
Excel-Tabelle Uhrzeiten aufrunden, aber nicht immer WENN... Excel-Tabelle Uhrzeiten aufrunden, aber nicht immer WENN...: Ich habe meine Zeiterfassung so eingerichtet, dass jeweils auf 15 Min. aufgerundet wird. Nun meine Frage: Kann ich das noch einschränken auf einen bestimmten Uhrzeitbereich? Ich würde gerne alles...	Microsoft Office	Montag um 19:13 Uhr
Excel Bilder "UNKNOWN" Office 2024 LTSC Professional Plus Excel Bilder "UNKNOWN" Office 2024 LTSC Professional Plus: Hallo, ich habe mir gestern Office 2024 LTSC Professional Plus zugelegt, einzig aus dem Grund damit ich in Excel problemlos Bilder einfügen kann. Das Einfügen über "In Zellen einfügen- Dieses...	Microsoft Office	Montag um 12:52 Uhr

Excel als Taschenrechner