Mittelwert einer Zeile mit 0-Werten in VBA
31.10.2004 11:32:27
Wolfgang
Ich würde gern den Mittelwert der jeweiligen Zeile in Spalte F automatisch nach Werteingabe angezeigt bekommen, egal ob in der jeweiligen Zeile 1,2,3 oder 4 Werte stehen. Leider funktioniert mein Makro nicht richtig,
Freue mich über jede Hilfe.
MfG
Wolfgang
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim a, b, c, d, MW As Single
a = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select
a = ActiveCell.Value
b = ActiveCell.Offset(0, 1).Value
If b = 0 Then
MW = a
Else: c = ActiveCell.Offset(0, 2).Value
If c = 0 Then
MW = (a + b) / 2
Else: d = ActiveCell.Offset(0, 3).Value
MW = (a + b + c) / 3
If d > 0 Then
MW = (a + b + c + d) / 4
End If
End If
End If
ActiveCell.Offset(0, 4) = MW
End Sub