ich möchte die Werte einer Input-Box begrenzen. Bisher habe ich folgende Code:
If Range("F15").Value = "" Then
Eingabe = Application.InputBox("Bitte geben Sie einen Projekttyp ein!", "Teilprojekt einrichten")
If Eingabe = False Then
Range("A15:C15,E15:F15,I15:L15").ClearContents
Exit Sub
End If
Do While Eingabe = ""
Eingabe = InputBox("Bitte geben Sie einen Projekttyp ein!", "Eingabefehler")
Loop
[F15] = Eingabe
End If
Es soll aber nicht jede Eingabe möglich sein, sondern nur folgende:
Aufwand
Festpreis
Intern
Pseudo
Kann mir da jemand, vor allem codetechnisch weiterhelfen?
Grüße!