Nach Datum Time-Stamp Angabe der Tage als Differen
08.03.2006 17:51:24
Jürgen
ich habe mir von einem Freund ein Script schreiben lassen, welches mir automatisch, entweder bei einer beliebigen oder einer bestimmten Eingabe (in diesem Fall "9") einen Zeitstempel setzt, und zwar in drei Spalten (zur Nachverfolgung von Aktivitäten...wann wurde welche Aktion beendet).
Am Ende möchte ich das Enddatum von dem Startdatum abziehen (das mittlere brauche ich nur zur Kontrolle), um anschließend die Anzahl der benötigten Tage auszurechnen, über eine reine Zellensubtraktion
=$G5-$C5
Das Problem hierbei ist, das diese einfache Subtraktion in einer Endlosschleife permanent die Differenz der beiden Zellen berechnet, obwohl ich keine Eingabe mehr mache.
Hier das Script:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = Range("B:B").Column Then
' Start Trigger in Spalte B
Cells(.Row, "C").Value = (Now)
' Startzeit in Spalte C
End If
If Cells(.Row, "D").Value = 9 Then
' Start Trigger in Spalte D wenn gleich 9
Cells(.Row, "E").Value = (Now)
' Stopzeit in Spalte E
End If
If Cells(.Row, "F").Value = 9 Then
Cells(.Row, "G").Value = (Now)
' Stopzeit in Spalte G
End If
End With
Next Cell
End Sub
Bitte entschuldigt meine Laienhafte Fragestellung, aber ich komme hier leider alleine nicht weiter.
Vielen Dank im Voraus!
Gruß Jürgen