Zeit bei Nullwerten muss weg
Michel
ich komm schon wieder nicht weiter. Ich geh mir schon selbst auf den Keks.... :-/ aber vieleicht hat einer von euch Spezialisten eine Idee.
Ich habe zwei spalten.
22--15:18:49 -- 0
23--15:18:49 -- 2,00014472
24--15:18:49 -- 14,0010128
25--15:18:50 -- 25,99826431
26--15:18:50 -- 37,99913025
27--15:18:50 -- 50
28--15:18:50 -- 50,99826431
29--15:19:11 -- 50
30--15:19:12 -- 41,99942017
31--15:19:12 -- 33,99884415
32--15:19:12 -- 25,99826431
33--15:19:12 -- 18,00130272
34--15:19:13 -- 10,00072384
35--15:19:13 -- 2,00014472
36--15:19:13 -- 0,499131948
37--15:19:14 -- 0,499131948
38--15:18:42 -- 0
39--15:18:42 -- 0
40--15:18:42 -- 0
41--15:18:42 -- 0
42--15:18:42 -- 0
43--15:18:42 -- 0
44--15:18:42 -- 0
45--15:18:42 -- 0
46--15:18:42 -- 0
47--15:18:42 -- 0
48--15:18:42 -- 0
49--15:18:42 -- 0
72--15:18:50 -- 0
Die Zeitwerte werden durch folgende Funktion gesetzt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G22:G72")) Is Nothing Then
Target.Offset(, -2) = Time
End If
Dies funktioniert.Problem ist, dass ich beim löschen der Werte alle Werte in der linken Spalte auf 0 setze. Dies wird dann als Änderung erkannt und ich bekomm immer in alle Zellen die Zeit geschrieben. Dort wo eine 0 steht soll aber keine Zeit stehen.
Hat jemand ne Idee wie ich die wegbekomme? Irgendwie mit einem Vergleich, dass wenn vorher ne 0 gestanden hat und immer noch eine steht die Zeit nicht zu übertragen?
Bin für jeden Tipp Dankbar.
Bitte um Rückmeldung falls die Fragestellung unklar ist.
Vielen Dank schonmal
Gruß Michel