gehts auch schneller?

Habe das Gefühl das die folgende Zeile im Code zu langsam ist.

Range("AZ61").Value = Erg / NotenAnzahl

Gibt es was schnelleres?

Gruß
Felix

Hier noch mein gesamter Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng, RaBereich As Range
Dim Erg As Byte
Dim NotenAnzahl As Byte

Set RaBereich = Range("C64:C68")

For Each rng In RaBereich
If rng <> "" Then NotenAnzahl = NotenAnzahl + 1
Next rng
Erg = Application.WorksheetFunction.Sum(Range("BE64:BE68"))
Range("AZ61").Value = Erg / NotenAnzahl
End Sub