|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.08.2005 16:36:37 |
Lavinia |
|
|
 Aw:zeiten addieren |
16.08.2005 17:39:44 |
Oliver |
|
|
|
17.08.2005 12:15:36 |
Lavinia |
|
|
|
17.08.2005 13:13:13 |
Rasta |
|
|
|
19.08.2005 15:08:29 |
Lavinia |
|
|
|
20.08.2005 18:41:53 |
Oliver |
|
|
|
22.08.2005 09:14:17 |
Lavinia |
|
|
|
23.08.2005 15:42:32 |
Oli |
|
|
|
25.08.2005 10:25:50 |
Lavinia |
|
|
|
25.08.2005 15:04:20 |
Lavinia |
|
|
Von:
Oliver |
Datum:
16.08.2005 17:39:44 |
Views:
1450 |
Rating:
|
Antwort:
|
Thema:
Aw:zeiten addieren |
Hallo Lavinia,
ein problem daran ist, das ein formatierter stundenwert nur von 1-24 geht. somit kommt kein "richtiger" wert heraus.
diesen link habe ich dir herausgesucht- solltest du nicht zurecht kommen, melde dich noch einmal
http://www.wer-weiss-was.de/theme156/article1754654.html#1754654
viele grüße
Oli
Lavinia schrieb am 16.08.2005 16:36:37:
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...
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.08.2005 16:36:37 |
Lavinia |
|
|
Aw:zeiten addieren |
16.08.2005 17:39:44 |
Oliver |
|
|
|
17.08.2005 12:15:36 |
Lavinia |
|
|
|
17.08.2005 13:13:13 |
Rasta |
|
|
|
19.08.2005 15:08:29 |
Lavinia |
|
|
|
20.08.2005 18:41:53 |
Oliver |
|
|
|
22.08.2005 09:14:17 |
Lavinia |
|
|
|
23.08.2005 15:42:32 |
Oli |
|
|
|
25.08.2005 10:25:50 |
Lavinia |
|
|
|
25.08.2005 15:04:20 |
Lavinia |
|
|