ich möchte gern den Mittelwert bilden ohne Null.
für den Zellbereich funktioniert es z.B. wie folgt:
MsgBox WorksheetFunction.Sum(Range("B6:I6")) / Application.WorksheetFunction.CountIf(Range("B6: _ I6"), "0")
Sub Mittelwert_o_Null()
Dim a As String, b As String, c As String
a = 5
b = 1
c = 0
MsgBox CDbl(a) + CDbl(b) + CDbl(c) ' Summe
'wie ist der VBA Code bei den String 'Mittelwert ohne Null
'Ergebnis sollte 3 sein nicht 2
End Sub