Gruppe
Funktion
Bereich
INDEX
Thema
Schulnote anhand einer Punktetabelle errechnen
Problem
Wie kann ich ein Schulnote für eine gegebene Punktezahl anhand einer Punktetabelle ermitteln.
Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
ClassModule: Tabelle1
Public rng As Range
Public dHeight As Double
Public iSize As Integer
Private Sub Worksheet_SelectionChange( _
ByVal Target As Excel.Range)
On Error Resume Next
rng.Font.Size = iSize
Rows(rng.Row).RowHeight = dHeight
iSize = Target.Font.Size
dHeight = Rows(Target.Row).RowHeight
If IsEmpty(Target) Then Exit Sub
Target.Font.Size = 20
Set rng = Target
Rows(Target.Row).AutoFit
End Sub