Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

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

  • 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...

  • Tastenbefehl F2 und ENTER senden

    Mit Hilfe der Funktionstaste [F2] wird eine Zelle in den Bearbeitungsmodus gebracht. Die Taste [Enter] schließt den Bearbeitungsmodus wieder ab.Dies kann nach einem Textimport notwendig werden,...

  • Zähler beim Start einer Arbeitsmappe um den Wert 1 erhöhen

    Solle bei jedem Start einer Arbeitsmappe ein Zähler, beispielsweise eine Rechnungsnummer in Zelle B2, um den Wert 1 erhöht werden, dann sehen Sie sich den folgenden Code näher an. Private Sub...

  • MessageBox nach bestimmter Zeit automatisch schließen

    Eine MessageBox wird normalerweise so lange am Bildschirm angezeigt, bis diese über eine Schaltfläche wie Ja, Nein oder OK beendet wird. Mit Hilfe des nachfolgenden Codes lässt sich eine MessageBox aber auch...

  • Makro über die Funktion WENN() starten

    Haben Sie schon mal darüber nachgedacht, über die Funktion =WENN(Prüfung;dann;sonst)ein eigenes Makro auszuführen, wenn die Wenn-Bedingung eintritt? Nachfolgend zeigen wir Ihnen, wie sich dies...