Option Explicit
irgendwas ist da falsch aber ich weiss nicht was.... ich will das der wert am ende , nach eingabe der -1 in einer msgbox angezeigt wir. könnt ihr mir helfen?
Private Sub Form_Load()
Dim wert1 As Byte
Dim wert2 As Byte
wert1 = InputBox(" zahl eingeben ")
Do
wert2 = InputBox(" zahl eingeben ")
If wert2 > wert1 Then
wert1 = wert2
End If
Loop While wert2 <> -1
MsgBox (wert1)
End Sub
irgendwas ist da falsch aber ich weiss nicht was.... ich will das der wert am ende , nach eingabe der -1 in einer msgbox angezeigt wir. könnt ihr mir helfen?
Private Sub Form_Load()
Dim wert1 As Byte
Dim wert2 As Byte
wert1 = InputBox(" zahl eingeben ")
Do
wert2 = InputBox(" zahl eingeben ")
If wert2 > wert1 Then
wert1 = wert2
End If
Loop While wert2 <> -1
MsgBox (wert1)
End Sub