Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schulnoten umwandeln?

Forumthread: Schulnoten umwandeln?

Schulnoten umwandeln?
24.06.2003 19:25:13
Alfred
Hallo!
Ich möchte die Eingabe in meine Zeugnis-xls-datei erleichtern. Dafür möchte ich folgende Funktion automatisieren: wenn man die Zahlen(=schulnoten) 1,2,3,4,5,6 in eine Zelle eingibt, so sollen sie in "Sehr Gut", "Gut", "Befriedigend", "Genügend" und "Nicht Genügend" umgewandelt werden.(Bei Jahreszeugnissen müssen die Noten ausgeschrieben werden und bei 120 Schüler mit je 14 Noten nervt die Eingabe)
Ich habe leider bis jetzt noch nichts passendes gefunden und kenn mich in VBS leider zu wenig aus um das Problem selbst zu lösen.
Bitte daher dringend um Hilfe. Danke!!!!!!!!!
Alfred

Anzeige

24
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schulnoten umwandeln?
24.06.2003 19:46:28
Klaus
Hallo Alfred,

ich habs mal mit einem SVERWEIS versucht.

Und zwar steht bei mir in A1 die Zahl (also z.B. 3) in B1 die Formel: =SVERWEIS($A1;$E$1:$F$6;2)

In den Zellen E1 bis E6 stehen die Zahlen 1 bis 6, in den Zellen F1 bis F6 die entsprechenden Benotungen (Sehr gut etc.)

Wenn Du jetzt in A1 die "1" eingibst, kommt in B1 "sehr gut"


Ansonsten gibt es noch die Möglichkeit mit "=WENN(ODER...."

Gruss

Klaus

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 20:02:36
alf
Man kenn es mit folgendem Makro versuchen:

Sub noten()
For Each zelle In Selection
If zelle.Value = 1 Then zelle.Value = "Sehr gut"
If zelle.Value = 2 Then zelle.Value = "gut"
If zelle.Value = 3 Then zelle.Value = "befriedigend"
If zelle.Value = 4 Then zelle.Value = "ausreichend"
If zelle.Value = 5 Then zelle.Value = "mangelhaft"
If zelle.Value = 6 Then zelle.Value = "ungenügend"
Next
End Sub

Nach Eingabe der Noten in Zahlen wird der gesamte Bereich
markiert und das Makro aufgerufen. Alle Werte werden dann
in Text umgewandelt.

Gruß Alf

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 20:10:32
Patrick G.

Re: Schulnoten umwandeln?
24.06.2003 20:14:16
Patrick G.
Re: Schulnoten umwandeln?
24.06.2003 20:14:18
Klaus Schubert
In das Klassenmodul von der entsprechenden Tabelle diesen Code:

Durch den Code Target.Column = 1 wird die Ausführung auf die erste Spalte A begrenzt, bitt entsprechend anpassen.

Gruß Klaus

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 20:49:29
Marcus
Re: Schulnoten umwandeln?
24.06.2003 20:58:39
PeterW
Hallo Marcus,

ich hatte nur einen Vorschlag gemacht. :-)

Wird die Aufgabenstellung: "wenn man die Zahlen(=schulnoten) 1,2,3,4,5,6 in eine Zelle eingibt, so sollen sie in "Sehr Gut", umgewandelt werden." mit der Formel gelöst?

Gruß
Peter

Re: Schulnoten umwandeln?
24.06.2003 21:04:38
Habs fast!
Hallo Peter!
Ich hab deinen Hinweis so umgesetztund es funktioniert fast:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case UCase(Target)
Case "1"
Target = "Sehr Gut"
Case "2"
Target = "Gut"
Case "3"
Target = "Befriedigend"
Case "4"
Target = "Genügend"
Case "5"
Target = "Nicht Genügend"
Case Else
MsgBox "fehlerhafte Eingabe"
End Select
Application.EnableEvents = True
End Sub

So viel ich verstanden wird durch

If Target.Column > 1 Then Exit Sub

das sub auf die erste Spalte begrenzt.
Kannst du mir noch sagen, wie ich das sub auf bestimmte Zellen begrenze?
Inzwischen quäle ich mich mal durch die Hilfe.
Vielen Dank.
Alfred

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 21:06:17
Habs fast!
Hallo Peter!
Ich hab deinen Hinweis so umgesetztund es funktioniert fast:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case UCase(Target)
Case "1"
Target = "Sehr Gut"
Case "2"
Target = "Gut"
Case "3"
Target = "Befriedigend"
Case "4"
Target = "Genügend"
Case "5"
Target = "Nicht Genügend"
Case Else
MsgBox "fehlerhafte Eingabe"
End Select
Application.EnableEvents = True
End Sub

So viel ich verstanden wird durch

If Target.Column > 1 Then Exit Sub

das sub auf die erste Spalte begrenzt.
Kannst du mir noch sagen, wie ich das sub auf bestimmte Zellen begrenze?
Inzwischen quäle ich mich mal durch die Hilfe.
Vielen Dank.
Alfred

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 21:10:38
Danke Klaus
Vielen Dank für die schnelle Antwort!
Ich hab inzwischen schon mit dem Hinweis von Peter folgende Lösung:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case UCase(Target)
Case "1"
Target = "Sehr Gut"
Case "2"
Target = "Gut"
Case "3"
Target = "Befriedigend"
Case "4"
Target = "Genügend"
Case "5"
Target = "Nicht Genügend"
Case Else
MsgBox "fehlerhafte Eingabe"
End Select
Application.EnableEvents = True
End Sub

Jetzt muss ich nur noch herausfinden wie ich das Ganze auf ein Paar Zellen begrenzen kann. Vielleicht kannst du mir einen Tipp geben.
Alfred

Anzeige
Danke
24.06.2003 21:13:49
Alfred
Vielen Dank!
Hab inzwischen folgende Lösung:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case UCase(Target)
Case "1"
Target = "Sehr Gut"
Case "2"
Target = "Gut"
Case "3"
Target = "Befriedigend"
Case "4"
Target = "Genügend"
Case "5"
Target = "Nicht Genügend"
Case Else
MsgBox "fehlerhafte Eingabe"
End Select
Application.EnableEvents = True
End Sub

Alfred

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 21:15:54
Alfred
Vielen Dank!
Ich hab inzwischen folgende Lösung:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case UCase(Target)
Case "1"
Target = "Sehr Gut"
Case "2"
Target = "Gut"
Case "3"
Target = "Befriedigend"
Case "4"
Target = "Genügend"
Case "5"
Target = "Nicht Genügend"
Case Else
MsgBox "fehlerhafte Eingabe"
End Select
Application.EnableEvents = True
End Sub

Alfred

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 21:17:30
Alfred
Vielen Dank.
Ich hab inzwischen folgende Lösung:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Select Case UCase(Target)
Case "1"
Target = "Sehr Gut"
Case "2"
Target = "Gut"
Case "3"
Target = "Befriedigend"
Case "4"
Target = "Genügend"
Case "5"
Target = "Nicht Genügend"
Case Else
MsgBox "fehlerhafte Eingabe"
End Select
Application.EnableEvents = True
End Sub

Alfred

Anzeige
Re: Schulnoten umwandeln?
24.06.2003 21:19:26
PeterW
Hallo Alfred,

was sind für dich bestimmte Zellen? In VBA muss man das schon genauer angeben. Wenn du in der VBA-Hilfe unterwegs bist schau dir mal Intersect an. :-)

Gruß
Peter

Re: Schulnoten umwandeln?
24.06.2003 21:43:56
Alfred
Hallo,
konkret möchte ich es auf die Zellen c11 bis c18 beschränken.
Bin gerade bei Range,cells usw.
Danke Alfred
Anzeige
Re: Schulnoten umwandeln?
24.06.2003 21:58:53
PeterW
Hallo Alfred,

so sollte es funktionieren:

Gruß
Peter

Re: Das wars,Danke!
24.06.2003 22:12:41
Alfred
Hallo Peter!
Vielen Dank !!!!
Nun is es so wie ich es brauche. (Mit If .... <> Zellen usw. hats nicht geklappt)
Du hast mir (als VB-Schwammerl) viel Zeit erspart.

Alfred

PS: Meine Kollegen werden dir auch dankbar sein!

Anzeige
Re: Das wars,Danke!
24.06.2003 22:24:42
PeterW
Hallo Alfred,

danke für die Rückmeldung. Mit deinem Ansatz mit If geht es allerdings auch:

Gruß (auch an deine Kollegen)
Peter

Nur eine keine Frage...
25.06.2003 00:00:06
Panicman
Hallo zusammen,

was haltet ihr eigentlich von der Autokorrektur ?
1,, = sehr gut
2,, = gut
3,, usw.

ne ziemlich einfache Lösung, oder

Gute Nacht
Holger

Anzeige
Re: Nur eine keine Frage...
25.06.2003 11:19:32
PeterW
Hallo Holger,

lässt sich die Autokorrektur auf einzelne Zellen/Zellbereiche beschränken? Falls nicht wird es schwierig beim Datum für das Zeugnis.

Gruß
Peter

Re: Nur eine keine Frage...
25.06.2003 12:38:02
Panicman
Hallo Peter,

das sollten Zahlen mit anschließenden 2 Komma sein (1,,).
Normalerweise kommen die beim eintippen eines Datums nicht vor, oder?

Gruß
Holger

Anzeige
Re: Nur eine keine Frage...
25.06.2003 17:27:40
PeterW
Hallo Holger,

die Doppelkomma hatte ich überlesen. Könnte also wirklich so gehen. (Geht nur bei mir nicht, da die Doppelkomma bereits durch den Doppelpunkt für eine komfortabler Eingabe der Uhrzeit benutzt werden.)

Gruß
Peter

Stimmt, bei mir auch ;-))) _o.T.
25.06.2003 17:54:11
Panicman

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Schulnoten automatisiert umwandeln


Schritt-für-Schritt-Anleitung

Um die Eingabe von Schulnoten in Excel zu automatisieren, kannst Du die folgende Methode verwenden. Hierbei wird die Funktion SVERWEIS genutzt, um Noten in Text umzuwandeln:

  1. Erstelle eine Tabelle:

    • In Spalte E trage die Zahlen 1 bis 6 ein (E1 bis E6).
    • In Spalte F trage die entsprechenden Schulnoten ausgeschrieben ein:
      • F1: "Sehr Gut"
      • F2: "Gut"
      • F3: "Befriedigend"
      • F4: "Genügend"
      • F5: "Nicht Genügend"
      • F6: "Ungenügend"
  2. Verwende die SVERWEIS-Funktion:

    • In Zelle B1 (oder einer anderen Zelle, wo Du das Ergebnis sehen möchtest) gib die folgende Formel ein:
      =SVERWEIS(A1; $E$1:$F$6; 2; FALSCH)
    • Diese Formel sucht den Wert in A1 (die Note) in der ersten Spalte des Bereichs E1:F6 und gibt den entsprechenden Text aus der zweiten Spalte zurück.

Häufige Fehler und Lösungen

  • Fehler: #NV wird angezeigt.

    • Lösung: Stelle sicher, dass die eingegebene Zahl in A1 exakt mit einer Zahl in Spalte E übereinstimmt.
  • Fehler: Falsche Noten werden angezeigt.

    • Lösung: Überprüfe, ob die Werte in der Tabelle korrekt eingegeben sind und ob die Formel richtig geschrieben wurde.

Alternative Methoden

Falls Du eine VBA-Lösung bevorzugst, kannst Du ein einfaches Makro verwenden, um die Noten in Text umzuwandeln:

Sub NotenUmwandeln()
    For Each zelle In Selection
        Select Case zelle.Value
            Case 1: zelle.Value = "Sehr Gut"
            Case 2: zelle.Value = "Gut"
            Case 3: zelle.Value = "Befriedigend"
            Case 4: zelle.Value = "Genügend"
            Case 5: zelle.Value = "Nicht Genügend"
            Case 6: zelle.Value = "Ungenügend"
        End Select
    Next zelle
End Sub

Markiere den Bereich mit den Noten und führe das Makro aus, um die Noten in worten umzuwandeln.


Praktische Beispiele

  • Wenn Du die Noten für 120 Schüler in einer Tabelle hast, kannst Du die obige Methode verwenden, um die Noten in worten zu generieren.
  • Beispiel: Wenn in A1 die Note "3" steht, wird in B1 automatisch "Befriedigend" angezeigt.

Tipps für Profis

  • Verwendung von Dropdown-Listen: Erstelle eine Dropdown-Liste für die Noten, um die Eingabefehler zu minimieren.
  • Formatierung: Nutze bedingte Formatierungen, um die Noten visuell hervorzuheben, z.B. "Sehr Gut" in grün und "Ungenügend" in rot.
  • Zusätzliche Funktionen: Nutze WENN-Funktionen für spezifische Anforderungen, wie z.B. die Umwandlung von Noten in Buchstaben für andere Zwecke.

FAQ: Häufige Fragen

1. Wie kann ich die Schulnote 6 in worten umwandeln? Die Schulnote 6 wird in der Tabelle als "Ungenügend" angezeigt, wenn Du die SVERWEIS-Funktion oder das Makro verwendest.

2. Kann ich die Funktion auf bestimmte Zellen beschränken? Ja, indem Du die VBA-Logik anpasst. Nutze den If-Befehl, um die Zellen zu spezifizieren, in denen die Umwandlung stattfinden soll.

3. Wie kann ich Excel zahlen in worte umwandeln? Verwende die oben genannten Methoden, um die Noten in worten zu generieren. Du kannst auch spezielle Funktionen oder Makros für andere Zahlen einsetzen.

4. Lässt sich die Autokorrektur für Noten verwenden? Ja, Du kannst die Autokorrektur so anpassen, dass beim Eingeben von Zahlen die entsprechenden Noten automatisch ausgefüllt werden, z.B. durch die Eingabe von "1,, für "Sehr Gut".

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige