Thema: Schulnote anhand einer Punktetabelle errechnen

Home

Gruppe

Funktion

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

Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX

Copy funktioniert nur einmal	Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei	Match Funktion spinnt (?)
SVerweis funktioniert nicht	PasteSpecial funktioniert nicht.
VERGLEICH/INDEX Formelproblem	VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion	Index Formel_Berechnung nur bei bestimmten Wert
neues Aktien Index Problem	Array - Index außerhalb des gültigen Bereichs
Zelladressen von FunktionsParametern ermitteln	Index Vergleich Formel mit Summenformel
Matrixformel mit Summenfunktion	Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht	VLOOKUP auf Links funktioniert offline
Formel Index(RGP	@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen	Polynomfunktion
Mit vba Funktionen in Excel Zellen	Interior.ColorIndex
Rang-Funktion für Strings?	Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht	Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung	Benutzerdefinierte Funktion
Userform mit Löschfunktion	Frage zu Wenn Dann Funktion
Wenn-Funktion	Colorindex Excel-Word RGB-Werte
Frage zur Funktion DISAGIO	Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt	VBA Suchfunktion erweitern
Makro funktioniert nicht richtig	Kombination von INDEX/Vergleich für Wertevergleich
zählenwenn-funktion mit mehreren kriterien	Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office	Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen	Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile")	Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht	WENN-Funktion