HERBERS Excel-Forum - die Beispiele

Thema: Errechnung von Schulnoten anhand einer Punktetabelle

Home

Gruppe

Funktion

Problem

Wie kann ich die Schulnote im Verhältnis zur maximal erreichbaren Punktezahl festlegen?

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: basMain

Function Temperatur(dat As Date, rng As Range)
   Dim rngAct As Range
   Dim iStart As Integer, iEnd As Integer
   For Each rngAct In rng.Cells
      If rngAct = dat Then
         iStart = rngAct.Row
         iEnd = iStart
         Exit For
      End If
   Next rngAct
   Do
      iEnd = iEnd + 1
   Loop While rng.Cells(iEnd - 1, 1) = rng.Cells(iEnd, 1)
   Temperatur = WorksheetFunction.Max( _
      rng.Range(rng.Cells(iStart, 3), rng.Cells(iEnd, 3)))
End Function

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

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office Hilfe bei der INDEX Funktion
Zelladressen von FunktionsParametern ermitteln Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis Makro funktioniert nach Beenden von Excel nicht
Rangliste nach Altersklasse VLOOKUP auf Links funktioniert offline
Zahl von Range herausfinden? @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Mit vba Funktionen in Excel Zellen Range-Wert aus der Statistik berechnen
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht Rang mit ""-Zellen ohne Dopplung
Public Funktion / Variabel VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion Userform mit Löschfunktion
Range in Spalte bis erste freie zelle? Frage zu Wenn Dann Funktion
Wenn-Funktion Frage zur Funktion DISAGIO
Range nach Werten durchsuchen und dann ausgeben Funktion um Chart zu kreieren
Range in Textbox Wenn-Funktion verschachtelt
Problem mit Set & Range (kurios?!) Aktivieren v. PivotFld-Ranges via Array & Schleife
VBA Suchfunktion erweitern Makro funktioniert nicht richtig
zählenwenn-funktion mit mehreren kriterien Problem bei Rang-Formel
Funktion SVERWEIS Benutzerdefinierte Funktion in Open Office
Farbigen Rangebereich auswählen Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen Fehler bei Range mit Variable
Fehler, wenn Variable in Funktion Problem mit dem Rang-System