Probleme bei Mittelwert
30.01.2015 10:41:13
Loer
ich setzte mich erst seit kurzem mit VBA auseinander und komme bei der Programmierung einfach nicht weiter.
In Spalte J stehen abwechseln 2 verschiedene zahlenwerte (Sollwerte).
Nun habe ich nach jedem Wechsel des Zahlenwertes eine leere Zeile eingefügt.
In Spalte H stehen sich ständig ändernde Istwerte, aus denen möchte ich den Mittelwert bilden. Dieser Mittelwerte steh nun Aktuelle in Spalte H in der Leeren zeile:
IstW MW SollW
5,6 7,1
7,8 7,1
9,1 7,1
6,9 7,1
7,4 1,1 2,0
2,1 2,0
1,8 2,0
3,5 2,0
2,7 2,0
2,2 .
.
.
Nun möchte ich aber den Mittelwert in der mittleren Spalte (Spalte I) so lange haben bis der Sollwert sich ändert
Also so
IstW MW SollW
5,6 7,4 7,1
7,8 7,4 7,1
9,1 7,4 7,1
6,9 7,4 7,1
1,1 2,2 2,0
2,1 2,2 2,0
1,8 2,2 2,0
3,5 2,2 2,0
2,7 2,2 2,0
.
.
.
Mein aktueller code ist folgender:
Sub Beides()
Dim lngRow As Long
Application.ScreenUpdating = False
For lngRow = Cells(Rows.Count, 10).End(xlUp).Row To 7 Step -1
If Cells(lngRow, 10).Value Cells(lngRow - 1, 10).Value And _
Not IsEmpty(Cells(lngRow, 10)) And Not IsEmpty(Cells(lngRow - 1, 10)) Then _
Rows(lngRow).Insert Shift:=xlShiftDown
Next
Application.ScreenUpdating = True
Dim rngZelle As Range
Dim lngEZ As Long, lngLZ As Long
lngLZ = Cells(Rows.Count, 3).End(xlUp).Row 'Letzte Zeile der Spalte C ermitteln
lngEZ = 5 'Zeile mit der ersten auszuwertenden Zahl
For Each rngZelle In _
Union(Range("C5:C" & lngLZ).SpecialCells(xlCellTypeBlanks), Cells(lngLZ + 1, 3))
'MITTELWERT()-Funktion :
Cells(rngZelle.Row, 8).FormulaR1C1 = _
"=AVERAGE(R" & lngEZ & "C:R" & rngZelle.Row - 1 & "C)"
'Beginn des nächsten Zahlenblocks auf nächste Zeile setzen :
lngEZ = rngZelle.Row + 1
Next
'Speicher für Objektvariable wieder freigeben :
Set rngZelle = Nothing
End Sub
Wie kann ich das machen?
Vielen Dank für eure Hilfe vorac;)