Hallo,

ich habe folgendes Problem: ich versuche ein Spiel zu erstellen, in dem die 1. Person eine Zahl vorgibt, und die 2. Person diese erraten soll.

Die UserForm ist soweit fertig, auch mit den Berechnungen sollte es soweit keine Schwierigkeiten geben, was aber nicht funktioniert, ist die Ausgabe in 2 Zeilen in nur einer Textbox.

Die Textbox heißt bei mir txtErgebnis, und in ihr sollen, durch eine Select Case Verzweigung zwei Textbausteine ausgegeben werden. Diese habe ich als strAntwort1 und strAntwort2 deklariert.

Vielleicht könnt ihr mir ja sagen wo der Fehler liegt, ich finde nicht heraus, warum beim Testlauf das Textfeld leer bleibt.

Anbei nochmal der komplette Code mit Notizen zum besseren Verständnis:

Private Sub cmdEnde_Click()

    Unload Me

End Sub

Private Sub cmdFertig_Click()

    'Variablendeklaration
   
        Dim bteVorgabezahl As Byte
        'Vorgabezahl als ganzzahliger Wert
   
        Dim bteEingabezahl As Byte
        'Eingabezahl als ganzzahliger Wert
   
        Dim strAntwort1 As String
        'Ausgabetext1 als Zeichenkette
       
        Dim strAntwort2 As String
        'Ausgabetext2 als Zeichenkette
               
        Dim bteMaximum As Byte
        'Das Maximum soll als ganzzahliger Wert betrachtet werden
               
        Dim bteMinimum As Byte
        'Das Maximum soll als ganzzahliger Wert betrachtet werden
           
    'Eingabe
   
        bteVorgabezahl = Val(Me.txtEingabe.Value)
        'Vorgabezahl soll aus txtEingabe ausgelesen werden
   
        bteEingabezahl = Val(Me.txtRaten.Value)
        'Eingabezahl soll aus txtRaten ausgelesen werden
       
    'Verarbeitung und Ausgabe

        bteMinimum = bteVorgabezahl - 10
        'Minimum ist Vorgabezahl minus 10
       
        bteMaximum = bteVorgabezahl + 10
        'Maximum ist Vorgabezahl + 10
       
        If bteVorgabezahl <= 0 Then
            strAntwort1 = MsgBox("Sie mogeln! Die Zahl soll größer als 0 sein!", vbOK, "Mogelhinweis")
            Me.txtEingabe.Text = ""
            Me.txtEingabe.SetFocus
        'Popup mit Fehlermeldung, Löschen des Eingabefeldes und Cursorsetzen
        ElseIf bteVorgabezahl >= 100 Then
            strAntwort1 = MsgBox("Sie mogeln! Die Zahl soll kleiner als 100 sein!", vbOK, "Mogelhinweis")
            Me.txtEingabe.Text = ""
            Me.txtEingabe.SetFocus
        'Popup mit Fehlermeldung, Löschen des Eingabefeldes und Cursorsetzen
        Else
            Select Case bteEingabezahl
                Case Is = bteVorgabezahl
                    strAntwort1 = "Gratulation. Sie haben es geschafft!"
                'richtige Eingabe
                Case Is >= bteMinimum
                    strAntwort1 = "Das ist schon ziemlich gut."
                'Eingabezahl ist um höchstens 10 kleiner als Vorgabezahl
                Case Is <= bteMaximum
                    strAntwort1 = "Das ist schon ziemlich gut."
                'Eingabezahl ist um höchstens 10 größer als Vorgabezahl
                Case Is > bteMaximum
                    strAntwort1 = "Strengen Sie sich etwas mehr an!"
                'Eingabezahl ist um mehr als 10 größer als Vorgabezahl
                Case Is < bteMinimum
                    strAntwort1 = "Strengen Sie sich etwas mehr an!"
                'Eingabezahl ist um mehr als 10 kleiner als Vorgabezahl
                Case Is < bteVorgabezahl
                    strAntwort2 = "Sie müssen in größeren Dimensionen denken."
                'Eingabezahl ist zu klein
                Case Is > bteVorgabezahl
                    strAntwort2 = "Sie werden übermütig."
                'Eingabezahl ist zu groß
                Case Else
            End Select
        End If
   
End Sub

Private Sub txtErgebnis_Change()

    Me.txtErgebnis.Text = strAntwort1 + vbNewLine + strAntwort2
    'Textausgabe mit Antwort1 - Zeilenumbruch - Antwort2

End Sub

Danke im Voraus für die Hilfe,

Marcel