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 Auftragsformular

  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