Tischrechner mit Tippstreifen

Der in diesem Beitrag vorgestellte Rechner protokollilert alle Eingaben in einer Art Tipp-Streifen, so wie bei Tischrechnern üblich. Damit können Eingaben nachvollzogen und historisiert werden, indem der Streifen ausgedruckt wird.

In der folgenden Abbildung sehen Sie, wie der Tischrechner aufgebaut ist.

in der Zelle B3 werden die Werte eingetragen, welche addiert oder subtrahiert werden sollen. Nachdem die Eingabe mit der [Enter]-Taste abgeschlossen wurde, wird das Ergebnis in Zelle B5 berechnet und die eingegebene Zahl erscheint im "Tippstreifen"-Bereich ab Zelle A9 mit Datum und Uhrzeit.

Wenn Sie positive Zahlen eingeben, müssen Sie kein [+]-Zeichen davor eintragen. Bei negativen Zahlen ist das [-]-Zeichen hingegen notwendig.

Über die Schaltfläche "Del" werden alle Eingaben einschließlich des Ergebnisses gelöscht.

Damit der Rechner funktioniert ist folgender VBA-Code notwendig. Erfassen Sie diesen bitte im Code-Modul des Arbeitsblatts, auf dem sich der Tischrechner befindet. In der untenstehenden Beispieldatei ist der VBA-Code im Code-Modul "Tabelle1" eingetragen.

Private Sub CommandButton1_Click()
 '** Einträge löschen - Button "Del"
 lngZeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
 
 If lngZeile >= 9 Then
   With ActiveSheet
     .Range(Cells(9, 1), Cells(lngZeile, 2)).ClearContents
     .Range("B3").ClearContents
     .Range("B5").ClearContents
   End With
 End If
 End Sub
 

 Private Sub Worksheet_Change(ByVal Target As Range)
 '** eingegebene Werte protokollieren und Ergebnis neu berechnen
 If Target.Address = "$B$3" Then
   If Target.Value <> "" And IsNumeric(Target.Value) Then
     Range("B5") = Range("B5") + Target.Value
     lngZeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
     Cells(lngZeile + 1, 1).Value = Format(Date, "dd.mm.yy") & " " & Format(Time, "hh:mm:ss")
     Cells(lngZeile + 1, 2).Value = Target.Value
   End If
 End If
 End Sub

Die Beispieldatei können Sie über den folgenden Link direkt herunterladen.

Drucken E-Mail

• Zurück
• Weiter