hh:mm:ss zähler programmieren?!

Hi Liebe Community.
Habe mal wieder ein problem. Ich brauch einen Counter der Hochzählt in hh:mm:ss.
Und zwar habe ich einen Stopgrund und ab dem Stop soll ein Counter hochzählen wie lange der ansteht und dieser auch bleiben bis ein neuen Stopgrund kommt. Für Stopgründe hätte ich ne Zelle.
Also zb. wenn Zelle "Stopgrund!D1>32" ist dann soll er Hochzählen in hh:mm:ss .Wenn Zelle "Stopgrund!D1 Hoffe ihr habt dies verstanden. Denke brauch da ein VBA Makro.
Wenn es einfacher geht ich bekomme aus meinem Prozessor schon hh:mm:ss raus wenn ein stopgrund ansteht. Dieser zählt auch hoch. Nur dieser Wert geht wieder weg sobald Stopgrund weg geht.
Ich will nicht unbedingt im Prozessor rum programmieren um dies zu ändern daher das im Excel sheet. Danke.
Sieht dann so aus:
=RSLINX|'20_data'!C_StopHourCounter.acc Zelle N43
=RSLINX|'20_data'!C_StopMinuteCounter.acc Zelle O43
=RSLINX|'20_data'!C_StopSecondCounter.acc Zelle P42
=CONCATENATE((TEXT(N43;"00"));":";(TEXT(O43;"00"));":";(TEXT(P42;"00")))
So sieht das gerade aus. Und wie gesagt möchte den Wert bis zu nächsten Stopgrund beibehalten haben damit man sieht wie lange letzter stopgrund ging.
vielen lieben dank schonmal Gruß Oli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
etwa so:
Im Modul "Stopgrund":

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Then
If Val(Target.Text) >= 32 Then init Else EndeUhr
End If
End Sub

In einem allg. Modul (z.B. Modul1):

Option Explicit
'Grundsatz-Infos u.a. aus:
'http://www.online-excel.de/excel/singsel_vba.php?f=133
Dim iTimerSet As Double
Dim z&
Dim D3
Dim initT As Boolean
Const zVon = 7
Public Sub SekundenZaehler()
iTimerSet = iTimerSet + TimeValue("0:0:1")
Sheets("Akt PO").Range("C" & z).Value = Format(Now, "hh:mm:ss")
Application.OnTime iTimerSet, "SekundenZaehler"
End Sub
Public Sub EndeUhr()
On Error Resume Next ' Sehr faul programmiert
Application.OnTime iTimerSet, "SekundenZaehler", , False
iTimerSet = 0
initT = False
Sheets("Akt PO").Range("C" & z).Value = Format(Now, "hh:mm:ss")
z = z + 1
End Sub
Sub init()
iTimerSet = Now
initT = True
With Sheets("Akt PO")
z = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.Range("D" & z - 1).Copy .Range("D" & z)
.Range("D" & z - 1).Value = .Range("D" & z - 1).Value
.Range("B" & z).Value = Format(Now, "hh:mm:ss")
End With
SekundenZaehler
End Sub

Gruß,
Michael

Dim iTimerSet As Double Dim sW As Date ' startWert Dim initT As Boolean Public Sub SekundenZaehler() iTimerSet = iTimerSet + TimeValue("0:0:1") Sheets("Akt PO").Range("C2").Value = Now - sW Application.OnTime iTimerSet, "SekundenZaehler" End Sub Public Sub EndeUhr() On Error Resume Next ' Sehr faul programmiert Application.OnTime iTimerSet, "SekundenZaehler", , False Sheets("Akt PO").Range("C2").Value = Now - sW iTimerSet = 0 initT = False End Sub Sub init() iTimerSet = Now sW = Now initT = True SekundenZaehler End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

hh:mm:ss zähler programmieren?!

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread