Hallo Zusammen,
ich lerne gerade vba und bin noch Anfänger.
Hab in Wor ein UserForm mit zwei Zahlen-Eingabefeldern. Die Erste soll von Person 1 vorgeben werden und zwischen 0 und 100 liegen. Die Zweite soll von Person 2 geraten werden. Ein 3 Textfeld soll eine Information darüber liefern wie nah die geratene Zahl an der Vorgegeben liegt.
Bedingung für die Ergebnisausgabe größer oder kleiner als die vorgegbene Zahl und unter 10 oder gleich 10 an der vorgegeben Zahl oder größer als 10 von der Ursprungszahl entfernt.
Ich darf aber nur mit If und Select case arbeiten.
Hier mein Code:
Dim btewert1 As Byte
Dim btewert2 As Byte
Dim strerg1 As String
Dim strerg2 As String
Dim btediff1 As Integer
Dim btediff2 As Integer
btewert1 = Me.txt_wert1
btewert2 = Me.txt_wert2
'Bei unzulässiger Eingabe
If btewert1 = 100 Then 'Wenn die Eingabe >=100
MsgBox "Sie mogeln!" & vbCrLf & _
"Die Zahl soll kleiner als 100 sein!" & vbCrLf & _
"Möchten Sie es erneut versuchen?", vbYesNo, "Wert = 100" 'Mitteilung über eine falsche Eingabe
If vbYes Then 'Wenn auf Yes geklickt wird
Me.txt_wert1.Value = "" 'Die Einagebfelder leeren
Me.txt_wert2.Value = ""
Me.txt_wert1.SetFocus 'Den Curser in das Feld Wert1 setzen
Else
Unload Me 'Wenn auf No geklickt wird Mitteilung schließen
End If
'Bei zulässiger Eingabe
Else
'Variablendeklaration wenn die Vorgabnezahl OK
btediff1 = btewert1 - 10 'Vorgabewert (txt_wert1) -10
btediff2 = btewert1 + 10 'Vorgabewert (txt_wert1) +10
'Größer oder kleiner als die Vorgabe
Select Case btewert2
Case Is > btewert1 'Ratezahl ist zu groß
strerg1 = "Sie werden übermütig"
Case Is = btediff1 'Ratezahl ist größer oder gleich als angegebene Zahl -10
strerg2 = "Das ist schon ziemlich gut"
Case Is btediff2 'Ratezahl ist größer als angegebene Zahl +10
strerg2 = "Strengen Sie sich etwas mehr an"
Case Else
End Select
End If
Me.txt_ergebnis.Value = strerg2 + vbNewLine + strerg1 'Textausgabe im Ergebnisfeld
Die letzte case Anweisung mit dem Sternchen (Case is > btediff2) funktioniert nicht.
Kann mir jemand sagen warum?
Danke schon mal für Eure Mühe.
Gruß
Holli |