Tischrechner mit Tippstreifen

Bookmark and Share

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 nebenstehenden Abbildung sehen Sie, wie der Tischrechner aufgebaut ist.

In 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 hier bei Excel-Inside.de herunterladen.

Kommentare sind geschlossen.