hallo...brauche dringend hilfe.....
habe in excel ne spalte mit zeitwerten in diesem format hh:mm
so..diese zeiten möcht ich nun addieren um so den durchschnittswert zu berechnen. muss ich dann vorher die stunden von den minuten trennen um so die summe zu bilden oder geht das auch so?
mein code bisher:
Sub filter_rows2()
'Anzahl aller Tickets, die noch nicht closed oder solved sind
If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter
'Monatsanfang = get_monthday(1)
'ActiveSheet.UsedRange.AutoFilter field:=12, Criteria1:=">" & Monatsanfang
ActiveSheet.UsedRange.AutoFilter field:=16, Criteria1:="<>closed", Operator:=xlAnd, Criteria2:="<>solved"
End Sub
Sub filter_rows3()
'Anzahl aller Tickets des letzten Monats
If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter
End Sub
Function get_cycle_time_open()
'Berechnet den Durchschnittswert für die 19. Spalte
'If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter
'Textfeld 'Cycle time (open)' des Notes-Export anpassen und in Zahlenwerte überführen
For Each zelle In ActiveSheet.UsedRange.Columns(19).Cells
If UBound(Split(zelle.Value, ":")) = 1 Then zelle.Value = "0:" + zelle.Value
Next
summe = 0
counter = 0
Call filter_rows3
For Each zelle In ActiveSheet.UsedRange.Columns(19).SpecialCells(xlCellTypeVisible)
If (IsNumeric(zelle.Value)) And (Not IsEmpty(zelle.Value)) Then
counter = counter + 1
summe = summe + zelle.Value
End If
Next
Call filter_rows2
For Each zelle In ActiveSheet.UsedRange.Columns(19).SpecialCells(xlCellTypeVisible)
If (IsNumeric(zelle.Value)) And (Not IsEmpty(zelle.Value)) Then
counter = counter + 1
summe = summe + zelle.Value
End If
Next
get_cycle_time_open = (summe / counter)
End Function
hab versucht mit split die zeitwerte zu trennen, aber klappt irgendwie nicht. die ergebnisse stimmen nicht..
hilfe...
|