---

Sub bestimmeNotenverteilung_Click()
    Const OPTIMALZEILE As Integer = 4
    Dim spaltenzaehler As Integer
    Dim aktuelleZeile As Integer
    Dim letzteBesetzteSpalte As Integer
    Dim anzahlEinsen As Integer
    Dim anzahlZweien As Integer
    Dim anzahlDreien As Integer
    Dim anzahlVieren As Integer
    Dim anzahlFuenfen As Integer
    Dim myDoc As Object
    Dim mySheet As Object
    Dim cell As Object
    spaltenzaehler = 0
    anzahlEinsen = 0
    anzahlZweien = 0
    anzahlDreien = 0
    anzahlVieren = 0
    anzahlFuenfen = 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))
        If (Cells(aktuelleZeile, letzteBesetzteSpalte) = "1") Or (Cells(aktuelleZeile, letzteBesetzteSpalte) = "1,3") Then
                anzahlEinsen = anzahlEinsen + 1
            ElseIf (Cells(aktuelleZeile, letzteBesetzteSpalte) = "1,7") Or (Cells(aktuelleZeile, letzteBesetzteSpalte) = "2") Or (Cells(aktuelleZeile, letzteBesetzteSpalte) = "2,3") Then
                anzahlZweien = anzahlZweien + 1
            ElseIf (Cells(aktuelleZeile, letzteBesetzteSpalte) = "2,7") Or (Cells(aktuelleZeile, letzteBesetzteSpalte) = "3") Or (Cells(aktuelleZeile, letzteBesetzteSpalte) = "3,3") Then
                anzahlDreien = anzahlDreien + 1
            ElseIf (Cells(aktuelleZeile, letzteBesetzteSpalte) = "3,7") Or (Cells(aktuelleZeile, letzteBesetzteSpalte) = "4") Then
                anzahlVieren = anzahlVieren + 1
            ElseIf Cells(aktuelleZeile, letzteBesetzteSpalte) = "5" Then
                anzahlFuenfen = anzahlFuenfen + 1
        End If
        aktuelleZeile = aktuelleZeile + 1
    Loop
    Sheets(3).Cells(1, 1) = "Anzahl Einsen"
    Sheets(3).Cells(1, 2) = "Anzahl Zweien"
    Sheets(3).Cells(1, 3) = "Anzahl Dreien"
    Sheets(3).Cells(1, 4) = "Anzahl Vieren"
    Sheets(3).Cells(1, 5) = "Anzahl F\'a8unfen"
    Sheets(3).Cells(2, 1) = anzahlEinsen
    Sheets(3).Cells(2, 2) = anzahlZweien
    Sheets(3).Cells(2, 3) = anzahlDreien
    Sheets(3).Cells(2, 4) = anzahlVieren
    Sheets(3).Cells(2, 5) = anzahlFuenfen
End Sub

---