Berechnung von Durchschnittswerten
10.10.2007 10:51:00
Durchschnittswerten
ich habe eine Tabelle mit zwei Spalten, die Datumswerte (Anfang, Ende eines Prozesses) enthalten und möchte die Werte voneinander abziehen, ausgeben und dann den Durchschnittsdauer des Prozesses ermitteln. Im Überwachnungsfenster bekomme ich die richtigen Differenz-Ergebnisse raus, aber auf dem Ausgabeblatt bekomme ich ab dem 2. Wert keine Ergebnisse mehr. Außerdem könnte es hakt es bei der Formel für die Berechnung des Durchschnittswertes haken.
Weiß da jemand von euch weiter?
Viele Grüße,
Roman
Ich hab mal ein paar Werte hochgeladen. https://www.herber.de/bbs/user/46659.xls
Sub TEST1()
Dim Intervall(2 To 7055, 1)
Dim i As Long
Dim Durchschnitt As Integer
With Worksheets("Tabelle1")
For i = 2 To 7055
If .Cells(i, 7) "" And .Cells(i, 18) "" And IsDate(.Cells(i, 7)) And IsDate(. _
Cells(i, 18)) Then
Intervall(i, 1) = DateDiff("d", CDate(.Cells(i, 7)), CDate(.Cells(i, 18)))
Else: Intervall(i, 1) = "n.a."
End If
Next i
End With
For i = 2 To 7055
Sheets("Bearbeitungsdauer").Range("A1:A7055") = Application.Transpose(Intervall)
Durchschnitt = Application.WorksheetFunction.Summe(Intervall(i, 1)) / Application. _
WorksheetFunction.Anzahl(Intervall(i, 1))
Next i
End Sub
Anzeige