Zelländerung zählen
15.07.2005 17:30:37
Frank
Ich habe ein Problem denn ich möchte eine verknüpfte Zelle zählen, wie oft sie sich verändert. Der Wert wird von einer SPS ausgelesen und ändert sich nur zwischen 0 und 1. Immer wenn der Wert 0 ist soll der Zähler in einer Tabelle um eins addiert werden. Die Tabelle sieht so aus. In Zelle A1 00:00 in B1 00:59 ins A2 01:00 B2 01:59 usw. bis 24h um sind. In Spalte C soll die Veränderung einer beliebigen Zelle (z.B. D1) gezählt werden je nach Tageszeit. Im nachfolgenden Code kann ich zwar eine Verknüpfte Zelle zählen aber nur mit Tastendruck. Ich bekomme es nicht hin, das die Zelle gezählt wird wenn sie sich intern verändert (ohne Tastendruck) und wenn Zelle D1 einmal gezählt wird, dann kann ich auf einmal in allen Zellen die Veränderung zählen. Das soll auch nicht sein.
-------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = Range("d1") Then Addieren
End Sub
-----------------------------------------------------------------------------
Macro
Public Sub Addieren()
Stunde = Hour(Now)
Zeile = Stunde + 1
Wert = Range("C" & Zeile)
Wert = Wert + 1
Range("C" & Zeile) = Wert
End Sub
----------------------------------------------------------------------------
Meine Beispieldatei
https://www.herber.de/bbs/user/24751.xls
Besten Dank in Voraus
Frank