habe mal eine Frage, geht mein folgender Code 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