Funktion "Sumtime" in XP nicht möglich?
18.11.2003 12:16:16
Tom
Hans W.Herber hat mir vor längerer Zeit mal geholfen, als ich Ergebnisse in einer Zeile addieren wollte.
A B C D E (=E)
3:1 2:0 0:5 1:6 =sumtime(a1:d1) 6:12
Er hat dies mit einem Makro gelöst:
Function SumTime(rng As Range)
Dim rngAct As Range
Dim intHour As Integer, intMinute As Integer
For Each rngAct In rng.Cells
If Not IsEmpty(rngAct) Then
intHour = intHour + CInt(Left(rngAct.Value, InStr(rngAct.Value, ":") - 1))
intMinute = intMinute + CInt(Right(rngAct.Value, Len(rngAct.Value) - InStr(rngAct.Value, ":")))
End If
Next rngAct
SumTime = CStr(intHour) & ":" & CStr(intMinute)
End Function
Nun habe ich die XP Version, und plötzlich geht das teil nicht mehr und schreibt mir ständig in die Ergebniszeile: #Name?
Was kann ich tun?
danke vorab.
Tom