ich muss ein Notenprogramm schreiben, welches Noten ausschließlich über eine Inputbox aufnimmt und den Notenspiegel sowie Durchschnitt über eine Messagebox ausgibt.
Die Eingabe eines Leerzeichens in der Inputbox soll Inputbox beenden und den Notenspiegel und Durchschnitt ausgeben. Leider komme ich nicht drauf, wie die Inputbox das Leerzeichen ohne Fehler nimmt, so oft ich es probiert habe.
Aufgabe per Bild: https://www.herber.de/bbs/user/146792.jpg
Option Explicit
Sub noten()
Dim note As Integer, i As Integer, z As Variant
Dim x(1 To 5, 1 To 2)
Dim durchschnitt As Double
x(1, 1) = "Note 1"
x(1, 2) = "x(1)"
x(2, 1) = "Note 2"
x(2, 2) = "x(2)"
x(3, 1) = "Note 3"
x(3, 2) = "x(3)"
x(4, 1) = "Note 4"
x(4, 2) = "x(4)"
x(5, 1) = "Note 5"
x(5, 2) = "x(5)"
Line1:
Do
z = InputBox("Eingabe der Noten")
" If CDbl(z) = "" Then Exit Do " ?
If IsNumeric(z >= 1 And z