Input box met lijst

[timmethy]

Beste gebruikers van VB,

Graag had ik het volgende voor mijn applicatie gezien.

Na het drukken op de knop toevoegen (date die ingevuld is toevoegen aan de database) wordt de vraag gesteld om je naam in te vullen.

Nu wil ik dat deze naam uit een lijst geselecteerd moet worden.

De code voor de input box met alle mogelijke invoer is:

Dim HPO, invoer, namen As String
Dim H, v As Integer

H = InputBox("Graag HPO naam hier invullen, na de controle!")
If H = "" Then Exit Sub

(HPO = naam)

Voor een combobox (lijst) is een dergelijke code

Sheets("invoer").Select
lst2 = Range("C2", Range("C2").End(xlDown))
cmbDiverseToevoeging11.List = lst2

Maar nu wil ik dus dat de invoer van de inputbox bestaat uit

Sheets("invoer").Select
lst4 = Range("E2", Range("E2").End(xlDown))

Is dit mogelijk bij een input box die na het drukken op de knop opkomt?

en zo ja, hoe schrijf je die code hopelijk kan iemand die uitwerken met de bovenstaande gegevens.

mvg,

Tim

 

[timmethy]

Do  
  if [E2]<>"" then MsgBox "Dit is geen geldig codenummer!"
  [E2]=InputBox("Voer je codenummer in:" , "Codenummer", 2)
Loop until WorksheetFunction.CountIf([Z1:Z10],[E2])>0

Werd gepost door SNB in een andere Topic

Ik snap niet helemaal wat de bedoeling hiervan is


Ik wil het volgende:
Stap 1: Druk op de knop toevoegen
Stap 2: Inputbox popup

Inputbox veld wordt als H vermeld (dit is voor het wegschrijven naar excel sheet​

Stap 3: De invoer van de inputbox

Nu wil ik dat de invoer van de inputbox wordt gecontroleerd.
De controle houdt in dat er gekeken moet worden of de invoer voorkomt in de kolom E van de sheet invoer


Kan iemand even voor mij exact die code tikken, ik weet dat het veel gevraagd is, maar ik kom er niet uit met die loop. (nog nooit gedaan)

mvg,

Tim