Combobox met invoervak

[Homeload]

Ik heb een spreadsheet gemaakt voor klanten gegevens en een formulier met comboboxen met invoervak. Nu weet ik niet hoe ik met de combobox de gegevens uit Excel kan lezen en eventueel onder de bestaande gegevens kan toevoegen. Ik ben een beginner in VB.

 

[Jajinder]

In het verleden heb ik een dergelijk zoekmachine gemaakt. Ik heb hem als bijlage ingesloten.

wachtword op knop "Programmeer" = forum

 

[Jajinder]

Oops… Ik lees nu pas dat je een beginner bent in VBA. Gebruik onderstaande code voor het vullen van een combobox. Ik kan niet al teveel typen, want ik zit hier met een gebroken hand….

Plaats deze code in het formulier.

Option Explicit

Private Sub UserForm_Initialize()

   Dim i As Integer

   i = 1

   With ComboBox1

      Do Until Sheets("Blad1").Cells(i, 1).Value = Empty
      
      ‘ Cells(i, 1)  staat voor Rij A
      .AddItem Sheets("Blad1").Cells(i, 1).Value

      i = i + 1
      Loop
   
      ‘ Het verwijderen van dubbele namen uit de combo.    
      For i = .ListCount - 1 To 1 Step -1
         If .List(i) = .List(i - 1) Then .RemoveItem (i)
      Next
   End With
End Sub

:thumb:

 

[Homeload]

Hartelijk bedankt hier kom ik voorlopig uit de voeten.