Mittelwert mit VBA wird nicht richtig berechnet
12.11.2015 21:43:54
Manuel
ich habe ein kleines Problem, bei dem ich nicht weiter komme. Ich versuche mit meiner Formel den Mittelwert aller eingeblendeten Reihen zu ermitteln, der dann in B2 eingetragen wird. Mit diesem Wert werden dann noch weitere Rechnungen vorgenommen, die natürlich alle nicht stimmen können wenn schon der Mittelwert falsch ist.
Die Reihen blende ich ein/aus über einen Filter, der über eine ComboBox gesteuert wird. Sprich es wird nur das angezeigt was in der ComboBox ausgewählt wurde. Nur ist der Berechnete Mittelwert nie richtig und egal was ich aus der ComboBox auswähle verschieden.
Weiß einer von euch bescheid wo der Fehler liegt?
Hier mein Code:
Sub Formel_einfügen()
Dim lnglast As Long
Application.ScreenUpdating = False
Sheets("Cost_Developing").Unprotect
lnglast = Sheets("Cost_Developing").Range("A65536").End(xlUp).Row
Sheets("Cost_Developing").Cells(1, 2).Value = Application.WorksheetFunction.Average(Range(Cells( _
4, 6), Cells(lnglast, 6)))
For z = 4 To lnglast
Sheets("Cost_Developing").Cells(z, 8).Value = Sheets("Cost_Developing").Cells(1, 2) * Sheets(" _
Cost_Developing").Cells(1, 1) / 100
Sheets("Cost_Developing").Cells(z, 9).Value = Sheets("Cost_Developing").Cells(1, 2) * Sheets(" _
Cost_Developing").Cells(1, 3) / 100
Sheets("Cost_Developing").Cells(z, 10).Value = Sheets("Cost_Developing").Cells(1, 2).Value
Next z
Application.ScreenUpdating = True
End Sub
Manuel