MeisterMorris
Grünschnabel
Hallo erstmal,
ich habe ein Kleines Problem, ich schreibe am Dienstag eine VBA Klausur und komme mit der uns mitgebenen Probeklausur nicht ganz zurecht.
Aufgabenstellung:
Erstellen sie eine VBA-Prozedur zur Abarbeitung folgenden Problems.
Bei einem Wissenvergleich zweier Schulen gibt es 3 Medaillen oder nichts.(Gold, Silber, Bronze oder nichts)
Für Gold müssen mindestens 93-100 Punkte erreicht werden
Für Silber sind Punkte zwischen 92- 85 erforderlich
Für Bronze 75-84.
Bei weniger nichts.
So hier nun mein Ansatz:
Mein Problem ist jetzt einfach, das er mir die Zahl als Ergebnis liefert statt dem Begriff Gold Silber Bronze.
Kann mir da jemand helfen Schon mal recht lieben Danke für die Hilfe
Gruß Maurice
ich habe ein Kleines Problem, ich schreibe am Dienstag eine VBA Klausur und komme mit der uns mitgebenen Probeklausur nicht ganz zurecht.
Aufgabenstellung:
Erstellen sie eine VBA-Prozedur zur Abarbeitung folgenden Problems.
Bei einem Wissenvergleich zweier Schulen gibt es 3 Medaillen oder nichts.(Gold, Silber, Bronze oder nichts)
Für Gold müssen mindestens 93-100 Punkte erreicht werden
Für Silber sind Punkte zwischen 92- 85 erforderlich
Für Bronze 75-84.
Bei weniger nichts.
So hier nun mein Ansatz:
Visual Basic:
Public Sub Medaillienspiegel()
Dim Punkte As Integer
Punkte = InputBox("Geben Sie bitte die erreichten Punkte ein:", " Medaillienspiegel")
If Punkte < 84 Then
MsgBox "über 75 bis 84 Punkte gibt es Bronze, über 85 bis 92 gibt es Silber und über 93 Gold.Ansonsten nichts.", vbInformation, "Medaillienspiegel"
Punkte = Punkte
ElseIf Punkte < 75 Then
Punkte = Bronze
ElseIf Punkte < 85 Then
Punkte = Silber
ElseIf Punkte >= 100 Then
Punkte = Gold
End If
MsgBox "Die erreichte Medaille lautet " & Punkte, vbInformation, "Medaillienspiegel"
End Sub
Mein Problem ist jetzt einfach, das er mir die Zahl als Ergebnis liefert statt dem Begriff Gold Silber Bronze.
Kann mir da jemand helfen Schon mal recht lieben Danke für die Hilfe
Gruß Maurice