Hejsan!
(Osäker på om frågan ska in i forumet Excel eller någon annanstans men det är Excel jag använder)
I en Inputbox ska användaren ange ett värde som denne vill se. Värdet ska vara antingen "Ej mottaget", "Mottaget" eller "Avslutat" och om användaren skriver in något annat ska det bli stopp och uppmanas att skriva in något av de tre korrekta. Hur gör jag för att åstasdkomma detta?

Tack på förhand!

Hälsningar
Peter

Jag är inte alls hemma på Excel, men kan du inte göra ett formulär där man endast kan välja mella dessa tre alternativ?

Om du ändå vill gör som du skrev i VBA borde detta fungera:

<code>
Dim svar As String
Dim korrektSvar As Boolean

Do Until korrektSvar
svar = InputBox("blabla")
If svar = "Ej mottaget" Or svar = "Mottaget" Or svar = "Avslutat" Then
korrektSvar = True
End If
Loop
</code>

/Johan

Peter,

Johans kod ok men Application.InputBox ger större kontroll över det som anges genom "Type"

<code>
Sub test()
Dim vaVal As Variant
Dim bSvar As Boolean

vaVal = Application.InputBox("Här anger du.... .", "Värde", Type:=2)

If vaVal = False Then Exit Sub

Do Until bSvar
If vaVal = "Ej Mottaget" Or vaVal = "Mottaget" Or vaVal = "Avsluta" Then
bSvar = True
'Din kod....
End If
Loop

End Sub
</code>

Reflektion:
Tycker det är för långa värden användarna måste mata in - Rekommenderar istället en combobox antingen direkt i bladet eller i ett formulär.

Mvh
XL-Dennis