Gruppe
Funktion
Problem
Wie kann ich ein Schulnote für eine gegebene Punktezahl anhand einer Punktetabelle ermitteln.
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