Mitelwert wenn > Zellenwert (VBA)
20.11.2018 15:23:43
Frank
ich hoffe Ihr könnt mir bei meinem Problem weiterhelfen. Das Problem scheint ziemlich banal, aber ich bekomme es einfach nicht hin.
In der Spalte E soll nur von den Zellen der Mittelwert berechnet werden, die größere Werte haben, als der der in Zelle O1 steht
Die Formel dazu lautet:
=MITTELWERTWENN(E:E;">"&O1)
Funktioniert auch wunderbar. Ich bekomme dies aber nicht in VBA übertragen. Der Makrorecorder hilft mir dort auch nicht weiter.
Vielen Dank im Voraus.
Mein fehlerbehafteter Code:
Option Explicit
Sub Diagrammzwei()
Dim wksEingabe As Worksheet
Dim wksData As Worksheet
Set wksEingabe = ActiveWorkbook.Worksheets("Tabelle1")
Set wksData = ActiveWorkbook.Worksheets("Tabelle2")
wksData.Range("R1") = WorksheetFunction.AverageIf(wksData.Range("E:E"), " > " & wksData.Range(" _
O1"))
End Sub