Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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.

   

Relevante Artikel

  • Sperren der Entfernen-Taste wenn Formel in Zelle

        In diesem Beispiel zeigen wir Ihnen, wie sich die Entfernen-Taste sperren lässt, wenn sich eine Formeln in der Zelle befindet. Dazu sind ein paar Zeilen VBA-Code notwendig. Erfassen Sie folgenden...

  • Ausführen eines Makros nach einer definierten Wartezeit

    Möchten Sie ein Makro nach einer bestimmten Intervall-Zeit immer wieder ausführen? Möchten Sie bspw. alle 30 Minuten erinnert werden, Ihre Rückenübungen zu machen. Oder soll stündlich ein...

  • Makro per Doppelklick in eine Zelle starten

      Dieses Makro führt nach einem Doppelklich in die Zelle A1 ein beliebiges Makro aus.Um dies zu realisieren, wird das Worksheet Event "Worksheet_BeforeDoubleClick" verwendet. Der folgende Code muss dazu in das Codemodul eines...

  • Ereignis beim selektieren einer Zelle ausführen

    Immer wenn in Excel eine Zelle aktiviert wird, wir das entsprechende Ereignis Worksheet_SelectionChange ausgeführt. In diesem Makro zeigen wir Ihnen, wie dies funktioniert. So soll bei Auswahl der...

  • Zelleinträge automatisch kommentieren

    Im folgenden Beitrag zeigen wir Ihnen, wie alle Zelleinträge und Änderungen mit Hilfe der in Excel integrierten Kommentarfunktion protokolliert und historisiert werden können. Das Bild oben zeigt...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013