---

Sub berechneDurchschnittsnote_Click()
    Const OPTIMALZEILE As Integer = 4
    Dim spaltenzaehler As Integer
    Dim aktuelleZeile As Integer
    Dim letzteBesetzteSpalte As Integer
    Dim anzahlTeilnehmer As Integer
    Dim notenSdassme As Double
    Dim durchschnittsnote As Double
    spaltenzaehler = 1
    anzahlTeilnehmer = 0
    notenSdassme = 0
    Do While Not IsEmpty(Cells(OPTIMALZEILE, spaltenzaehler))
        spaltenzaehler = spaltenzaehler + 1
    Loop
    letzteBesetzteSpalte = spaltenzaehler - 1
    aktuelleZeile = OPTIMALZEILE + 1
    Do While Not IsEmpty(Cells(aktuelleZeile, letzteBesetzteSpalte))
        anzahlTeilnehmer = anzahlTeilnehmer + 1
        notenSdassme = notenSdassme + Cells(aktuelleZeile, letzteBesetzteSpalte)
        aktuelleZeile = aktuelleZeile + 1
    Loop
    durchschnittsnote = notenSdassme / anzahlTeilnehmer
    Sheets(3).Cells(1, 1) = "Durchschnittsnote"
    Sheets(3).Cells(1, 2) = durchschnittsnote
End Sub

---