Mittelwert nach Datum bilden, VBA

Hallo, habe da ein Problem und ich hoffe ihr könnt mir weiter helfen

Habe eine Tabelle in Excel 2010, die in Etwa so aussieht:

Produkt           Datum                Messung
Wasser             12.01                      4
Wasser             12.01                      6
Wasser             13.01                      2
Wasser             15.01                      7
Wasser             15.01                      1
Wasser             15:01                      6

Von den Tageswerten soll der Mittelwert gebildet und in einem Diagramm angezeigt werden.

Habe nun schon ein Programm geschrieben, das die Werte addiert anzeigt


Private Sub Rhg_Click()
Dim ptCache As PivotCache
Dim ptTable As PivotTable
Dim i As Integer

'alte Pivottabelle löschen
With ActiveSheet
    For Each ptTable In .PivotTables
        ptTable.TableRange2.Delete
    Next ptTable
End With


'Datenbereich markieren
Set ptCache = ActiveWorkbook.PivotCaches.Add _
                (SourceType:=xlDatabase, _
                SourceData:='A1:C' & _
                ActiveSheet.UsedRange.Rows.Count)
             
             
'Ort der Pivottabelle festlegen
Set ptTable = ptCache.CreatePivotTable _
                (TableDestination:=ActiveSheet.Range('O1'), _
                Tablename:='MyPivotTable')


'Pivotfelder einrichten
With ptTable
    .PivotFields('Sorte').Orientation = xlPageField
    .PivotFields('Datum').Orientation = xlRowField
     .PivotFields('Messung').Orientation = xlColumnField
    End With
Set ptCache = Nothing
Set ptTable = Nothing


ActiveSheet.PivotTables('MyPivotTable').AddDataField ActiveSheet.PivotTables( _
        'MyPivotTable').PivotFields('Rhg'), '', xlSum
    ActiveWorkbook.ShowPivotTableFieldList = False
   
   
'altes Diagramm löschen
With Sheets('Auswertung')
    .ChartObjects().Delete
  End With



'Diagramm erstellen
    Charts.Add
    ActiveChart.SetSourceData Source:=Sheets('Daten').Range('O3')
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Auswertung'
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    ActiveChart.PlotArea.Select
    ActiveChart.ApplyDataLabels AutoText:=True, ShowValue:=False
   
   
'Diagramm Titel einfügen
With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = 'Mittelwert'
    End With
 
                             
'Diagrammgröße festlegen
With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count)
            .Width = 750
            .Height = 500
            .Top = Range('B3').Top
            .Left = Range('B3').Left
    End With
   
   
'Diagrammschriftgröße festlegen
ActiveChart.ChartArea.Select
    Selection.AutoScaleFont = True
    With Selection.Font
        .Name = 'Arial'
        .Size = 11
    End With
     
   
'Diagramm Überschrift Schriftgröße festlegen
ActiveChart.ChartTitle.Select
    Selection.AutoScaleFont = True
        With Selection.Font
        .Name = 'Arial'
        .Size = 18
        End With
End Sub

Gibt es da eine Möglichkeit die Berechnung so zu machen, dass die zum selben Datum gehörende Werte addiert und und durch deren Anzahl geteilt werden?

Vielen Dank im Voraus

Max


Mein Computer-System:
   
Mein PC ist etwa 0-2 Jahre alt.