13. februar 2014 - 10:48Der er
4 kommentarer og 1 løsning
Validere indhold i combobox i forhold til liste
Excel 2010/VBA
På en userform er der en combobox, som får data fra en liste (MinListe). Der indtastes en værdi fra listen, derefter gemmes værdien (med "Gem") eks. på MitArk - Kol A. Herefter slettes comboboxen og en ny indtastning kan begynde. Hvis jeg bruger MatchRequired, comboboxen,kommer der en fejlmelding, når comboboxen bliver slettet efter gem. Jeg vil egentlig gerne køre en if sætning, som sammenligner værdien i comboboxen med værdierne i MinListe og sætter en msgBox op med fejlmelding, hvis der ikke er match - også af flere andre årsager.
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Private Sub CommandButton1_Click() If erTalValid(Me.ComboBox1) = True Then Range("F10000").Select Range("F65536").End(xlUp).Offset(1, 0).Select With ActiveCell .Value = ComboBox1.Text End With Else MsgBox "Tallet " & Me.ComboBox1 & " er ugyldigt" End If
On Error Resume Next ComboBox1.Value = "" ComboBox1.SetFocus End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Function erTalValid(tal As Integer) Dim ræk As Integer, talListeTal ActiveWorkbook.Sheets(1).Activate
For ræk = 2 To ActiveSheet.Range("A65000").End(xlUp).Row talListeTal = Range("A" & ræk) If tal = talListeTal Then erTalValid = True Exit Function End If Next ræk
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
