AW: Upps
01.01.2013 12:41:05
hary
Hallo Peter
Liegt daran das die Function nicht ueberall vorhanden ist.
Wenn die Function immer vorhanden sein soll dann muss der Code in ein Modul personlichen Arbeitsmappe.
Fuer Deine jetzige, kopier den nachfolgenden Code in ein Modul deiner Arbeitsmappe.
Function JedeZweite(Datum As Range, Monat As Range, Zeiten As Range) As Double
Dim Monate As Long
Dim Zähler As Long
Dim Summe As Double
Dim i As Long
Dim letzte As Long
Application.Volatile
letzte = Cells(Rows.Count, 1).End(xlUp).Row
Monate = Month(DateValue("1." & Monat.Value))
For i = Datum.Row To Datum.Rows.Count
If IsDate(Cells(i, Datum.Column)) Then
If Month(Cells(i, Datum.Column)) = Monate And Cells(i, Zeiten.Column) "" Then
Zähler = Zähler + 1
Summe = Summe + Cells(i, Zeiten.Column)
End If
End If
Next
JedeZweite = Summe / Zähler
End Function
gruss hary