---

Sub notenPunkteDarstellen_Click()
    Dim maximalpunkte As Integer
    Dim benoetigteProzente As Double
    Dim benoetigtePunkte As Integer
    Dim spanne As Integer
    Dim punkteProNote As Integer
    Dim punkteZweiZwischenNoten As Integer
    Dim punkteDreiZwischenNoten As Integer
    Dim grenze4_0 As Integer
    Dim grenze3_7 As Integer
    Dim grenze3_3 As Integer
    Dim grenze3_0 As Integer
    Dim grenze2_7 As Integer
    Dim grenze2_3 As Integer
    Dim grenze2_0 As Integer
    Dim grenze1_7 As Integer
    Dim grenze1_3 As Integer
    Dim grenze1_0 As Integer
    maximalpunkte = Cells(1, 2)
    benoetigteProzente = Cells(2, 2)
    benoetigtePunkte = Int((maximalpunkte * benoetigteProzente) / 100)
    spanne = maximalpunkte - benoetigtePunkte
    punkteProNote = Int(spanne / 4)
    punkteZweiZwischenNoten = Int(punkteProNote / 2)
    punkteDreiZwischenNoten = Int(punkteProNote / 3)
    grenze4_0 = benoetigtePunkte
    grenze3_7 = benoetigtePunkte + punkteZweiZwischenNoten
    grenze3_3 = benoetigtePunkte + punkteProNote
    grenze3_0 = grenze3_3 + punkteDreiZwischenNoten
    grenze2_7 = grenze3_0 + punkteDreiZwischenNoten
    grenze2_3 = benoetigtePunkte + 2 * punkteProNote
    grenze2_0 = grenze2_3 + punkteDreiZwischenNoten
    grenze1_7 = grenze2_0 + punkteDreiZwischenNoten
    grenze1_3 = benoetigtePunkte + 3 * punkteProNote
    grenze1_0 = grenze1_3 + punkteZweiZwischenNoten
    Sheets(2).Cells(1, 1) = "Punkte"
    Sheets(2).Cells(1, 2) = "Note"
    Sheets(2).Cells(2, 1) = "4"
    Sheets(2).Cells(2, 2) = grenze4_0
    Sheets(2).Cells(3, 1) = "3,7"
    Sheets(2).Cells(3, 2) = grenze3_7
    Sheets(2).Cells(4, 1) = "3,3"
    Sheets(2).Cells(4, 2) = grenze3_3
    Sheets(2).Cells(5, 1) = "3"
    Sheets(2).Cells(5, 2) = grenze3_0
    Sheets(2).Cells(6, 1) = "2,7"
    Sheets(2).Cells(6, 2) = grenze2_7
    Sheets(2).Cells(7, 1) = "2,3"
    Sheets(2).Cells(7, 2) = grenze2_3
    Sheets(2).Cells(8, 1) = "2"
    Sheets(2).Cells(8, 2) = grenze2_0
    Sheets(2).Cells(9, 1) = "1,7"
    Sheets(2).Cells(9, 2) = grenze1_7
    Sheets(2).Cells(10, 1) = "1,3"
    Sheets(2).Cells(10, 2) = grenze1_3
    Sheets(2).Cells(11, 1) = "1"
    Sheets(2).Cells(11, 2) = grenze1_0
End Sub

---