Schule Noteneingabe Zensuren mit PlusMinus etc

[Sen]

Hallo,

ich würde gerne in einigen Schulen in Baden-Württemberg OpenOffice populärer machen. Dazu benötigen die Lehrer als Notenberechnungsprogramm eine Calc-Tabelle. Diese ist soweit auch fertig nach allen Vorgaben der Notenermittlunng in BW.

Nun fehlt noch...
1. die Möglichkeit Viertel- und Halbnoten einzugeben in der üblichen Weise:
Z.B: 2- entspricht 2,25
4+ entspricht 3,75
2-3 entspricht 2,5
(Calc kann gerne die Werte nach der Eingabe als Dezimalzahl eintragen)
2. die Beschränkung nur Noten von 1 bis 6 einzutragen

Das Problem ist evtl. schon öfters gelöst worden, aber ich habe leider nichts Passendes gefunden.

Mit der Bitte um Hilfe um Excel vom Thron zu stoßen und den Schulen viel Geld zu sparen.

MfG

Stefan

[clag]

Moin Stefan,

wenn du konkrete Hilfe erwartest, solltest du als erstes einmal zeigen wie deine Tabelle aussieht und welche Formeln du bereits verwendest!

Ansonsten bleibt nur der Hinweis auf die sonst üblicherweise für so etwas eingesetzten Funktionen wie MIN(), MAX(), *MITTELWERT*(); MEDIAN(), usw
und guckst du vielleicht mal da
viewtopic.php?f=2&t=62438

hilft das? sonst s.o.

[miesepeter]

Hallo,

ich habe vor einiger Zeit mehrere (im Internet) angebotene Lösungen dieses Problems ausprobiert und war n-i-e mit Handhabung und/oder Ergebnissen zufrieden. Die einzige stressfreie Möglichkeit für Aufgaben dieser Art sehe ich in der Notenbox. Damit kommen auch mit dem Computer Ungeübte zurecht.

Du kannst dir die Probeversion herunterladen (http://www.awin.de/download.html), sie funktioniert bis auf die Druckfunktion genauso wie die Vollversion und ist zeitlich unbefristet zu nutzen. Möchtest du - vorübergehend - mit der Testversion arbeiten, so kannst du Listen etc. in die Zwischenablage kopieren und wirklich gut in Calc einfügen, dann ausdrucken...

Notenbox läuft normalerweise unter Windows, kann aber auch laut Werbung in Android verwendet werden. Ich selbst nutze die Version unter Linux-WINE seit Jahren und bin sehr zufrieden damit. Schulversionen sind - meiner Ansicht nach - preisgünstig zu erwerben.

Üblicherweise sollte hier im Forum keine Werbung stattfinden, ich weiß, und bitte das aus o.g. Gründen zu entschuldigen.

Ciao und viel Erfolg!

[clag]

Hallo Stefan,

es bleiben Fragen?

wo möchtest du die Note eingeben und wo soll der Dezimalwert abgelegte werden
oder willst du in der selben Zelle eine Wandlung erreichen?

[clag]

Hallo Stefan,

wenn du direkt die Eingabe wandeln willst, kommst du nicht drumherum ein Makro in Basic auf die Zelle anzusetzen

oder was ich persönlich vorziehen würde eine Hilfsspalte offen oder auch ausgeblendet
in der die Dezimalwerte mit SVERWEIS() aus einer kleinen Hilfstabelle geholt werden

wobei es auch wieder von deinem Konzept abhängt wie du da was, wo, verwaltest und auswertest.

[paljass]

Hi,
möglicherweise kann man auch auf Extras - Autokorrektur zurück greifen.
Kürzel 2-
Ersetzung 2,25
Klick auf Neu nicht vergessen.

Gravierender Nachteil: Die Autokorrektur gilt Systemweit - also für alle Tabellen- und Textdokumente.

Fröhliches Schwitzen
paljass

[Constructus]

Hi,
möglicherweise kann man auch auf Extras - Autokorrektur zurück greifen.
Kürzel 2-
Ersetzung 2,25
Klick auf Neu nicht vergessen.

Gravierender Nachteil: Die Autokorrektur gilt Systemweit - also für alle Tabellen- und Textdokumente.

Hallo paljass,

oder mein Lieblingsthema nutzen: ein AOO oder LibO im WIN in den Käfig stecken (portables System) und allein für den Sonderfall nutzen (paßt sogar auf einen Stick und wäre mitnehmbar). Oder eben als Linuxer eine Zweitinstallation verwenden (AOO || LibO) und nur eine mit der Autokorrektur ausstatten.

Geht nicht gibt's nicht...

Schönes Wochenende

Constructus

[clag]

Hallo zusammen,

habe mal in Basic etwas gebastelt, was die Note direkt in den entsprechenden Wert umwandelt.

Ist zwar ein schöner Effekt aber eine Variante mit SVERWEIS() und WerteTabelle gefällt mir trotzdem besser,
weil man zB immer sehen kann welche Note vergeben wurde, und welcher Wert daraus resultiert.
Aber das ist wie immer auch Ansichtssache.

Noten_zu_dezimal.ods

(11.81 KiB) 203-mal heruntergeladen

viel Spaß beim ausprobieren

[clag]

Hallo

if column>9 and row > 3 then

ja das ist Spalte J und ab Zeile 4, ich würde es aber auch in der Anzahl <XX begrenzen

Das Makro ist mit dem Tabellenereignis "Inhalt geändert" verknüpft und wird dadurch ausgelöst.

Text als Zellformat habe ich gewählt, weil die Eingabe von 3-4 von Calc in Datum umgewandelt wird
4- wird zu -4 und wenn die Zelle erst einmal Text ist mag sie nicht mehr so recht dezimal Zahlen annehmen.

Da fehlt mir das Hintergrundwissen wie man alle Automatismen abschaltet ??
oder man verwendet eben Strings, die muss man in den folgenden Formel dann mit der Funktion WERT() zurück wandeln.

wenn du sicher bist es wird nur 1-6 +- eingegeben kannst du noch die Zeile

Code: Alles auswählen

aNWert = Array( "1", "1,25", "1,5", "1,75", "2", "2,25", ..........")

und diesen Teil

Code: Alles auswählen

 or check = aNWert(i)

löschen

[clag]

Hallo Stefan,

habe bei frischer Morgenluft noch einmal das Makro überarbeitet und deinen Wünschen entsprechend erweitert
Der Eingabe Text wird jetzt als Wert ausgegeben und das Format der Zelle entsprechend geändert.

Das macht eine weitere Verarbeitung natürlich bequemer.

Zusätzlich farblich unterlegt damit eine korrekte Umwandlung bzw eine Falscheingabe deutlich wird.
versehentlich manuell umformatierte Zellen werden im Format wieder hergestellt.

Das Makro sollte jetzt recht robust laufen.

guckst du hier

edit:
das Makro hatte eine kleinen Schönheitsfehler siehe nächste Antwort


viel Spaß und Erfolg

[clag]

hallo Stefan,


beim komprimieren der Makrotextes ist eine benötigte Zeile Opfer meiner Löschaktion geworden
darum wird die selektiere Zelle bei "#NV" Ausgabe nicht auf den Ausgangszelle zurück gesetzt

hier noch mal leicht die korrigiert Version

Noten_zu_dezimal_r2a.ods

(12.92 KiB) 131-mal heruntergeladen

so nun aber

[balu]

Hallo clag,

Code: Alles auswählen

Dim workcolumn, topline, endline as integer

Ich bin mir sehr sicher das wir beide schon mal genau dieses Thema hatten, das diese Varibalendeklaration zu vermeiden ist. Denn workcolumn und topline sind als VARIANT, und nur die endline ist als Integer deklariert. Besser ist dann also die deklaration so vorzunehmen:

Code: Alles auswählen

Dim workcolumn as integer, topline as integer, endline as integer

Gewöhn dir also bitte an jede einzelne Variable richtig zu deklarieren, Du ersparst dir dann im Fehlerfalle eine mühselige Fehlersuche.

Ich habe das Makro nicht getestet, es sieht aber so weit sehr gut aus.



Gruß
balu

[clag]

Hallo Stefan,

so hier jetzt die Version für einen "beliebig" großen Bereich

Makro ist noch ein bisschen erweitert angepasst und "gepimpt"
ich hoffe ich habe nicht wieder etwas weggelösch was nötig war

Noten_zu_dezimal_r3a.ods

(15.08 KiB) 160-mal heruntergeladen

und ja viel Spaß beim probieren


@ Balu
Danke für die Blumen
ist ja schon ganz gut wenn noch jemand mit drauf schaut

@ Stefan
du weißt schon, dass der 3. Änderungswunsch dann einen 10l Eimer Eiscrem kostet, oder?

schönen Sonntag Allen

[clag]

hi

eigentlich ist das was du gemacht hast eine Verschlimmbesserung und dürfte nach meinen Verständnis gar nicht Funktionieren
denn Zellen NumberFormat = 100 weist der Zelle das Textformat zu und müsste einen eingegebenen Wert in Text wandeln, warum das jetzt nicht geschieht ist mir nicht klar
NumberFormat = 2 weist der Zelle ein Zweistelliges Zahlenformat zu, was ja auch erwünscht ist und ich würde es auch so bei NumberFormat = 2 belassen.

Solange bis logisch erklärt ist, wieso die TextZelle einen Wert ausgibt

Wenn man manuell eine Zelle auf Text formatiert kriegt man da keinen Wert rein oder raus.

Aber ich kann mich entsinnen, es ist noch gar nicht so lange her,
da hat schon einmal jemand sich gewundert wieso er plötzlich mit Text rechnen kann!?

Verlassen würde ich mich auf solche Zufallserscheinungen aber nicht.

[Sen]

Hallo clag,

erst einmal: Sorry für die Anrede "calc" - war keine Absicht - aber in Zukunft könnte man Dich schon Dr.Dr.Calc nennen!

Ja, mit NumberFormat 100 kann Calc auf einmal Text verrechnen!!!
Ich habe daher Deinen Tipp beherzigt und das logische NumberFormat 2 verwendet.
NumberFormat 0 machte übrigens auch ein Problem, da hierbei das direkte Überschreiben mit einer +Note keinen Fehler ergibt, sondern eine Falscheingabe:
Z.B. 4,5 (im NumberFormat 0) wird überschrieben mit 2+ führt zum Ergebnis 2 !!!

Hier kommt nun auch das fertige Produkt, die Notentabelle "OOnono":

OOnono_2014-07-20.ods

(151.57 KiB) 224-mal heruntergeladen

Für dieses suche ich jetzt noch eine digitale Heimat im Netz.

MfG

Stefan