ich habe eine Inputbox :
With Sheets("Übertrag")
Grund = Application.InputBox(" Bitte eingeben: " & vbNewLine & "---------------------------" & vbNewLine & " Rose " & vbNewLine & " Tulpe" & vbNewLine & " Blume", "Abfrageart", Type:=2) ' für Text
Range("H2") = Grund
Range("H2:H" & Cells(Rows.Count, "B").End(xlUp).Row).FillDown
End With
Ich möchte das nur Rose, Tulpe, Blume eingegeben werden darf. Sollte sich jemand vertippen oder es soll was neues dazu kommen dann soll die Abfragerage kommen" Sie dürfen nur Rose,Tulpe,Blume eingeben werden.
Dann die Frage
"Soll eine neue Art eingefügt werde" Ja . Dann darf der Mitarbeiter Nelke eingeben bei Nein Abbruch
Waäre sowas machbar ?
Dankeschön
liebe Grüße Lukas