Kontrol af indtastning i ComboBox i userform
Hej,Jeg har en række forskellige combobox's som tilpasser sig ud fra man vælger i de enkelte combox. Data der bliver vist i mine combobox kommer fra en fane.
Jeg kunne godt tænker mig, hvis man kunne lave en kontrol, så hvis brugeren af userformen indtaster en værdi som ikke fremgår af den liste der bliver vist i combobox, så får man en meddelelse om at man har indtastet en ugyldig værdi.
Er det muligt at lave sådan en kontrol?
Nedenfor fremgår et eksempel på en koder der indlæser værdier til mine en af mine combobox:
Dim rngOmkNiveau1 As Range
Set ws = Worksheets("StedOgAfdelingDef")
For Each rngOmkNiveau1 In ws.Range("DefNiveau1")
Me.cmbOmkNiveau1R1.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R2.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R3.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R4.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R5.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R6.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R7.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R8.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R9.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R10.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R11.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R12.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R13.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R14.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R15.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R16.AddItem rngOmkNiveau1.Value
Me.cmbOmkNiveau1R17.AddItem rngOmkNiveau1.Value
Next rngOmkNiveau1