invullen van een invoervelden via VBA

[caffie]

Ik ben aan het tobben met een formulier in VBA.
Wie kan en wil mijn verder helpen.

Ik het een invoerveld wat gevuld moet worden.
Maar de invulling is afhankelijk van een ander veld.
Als ik in fabriek ab5 kies moet hij in me invoerveld de data uit sheet ab5 halen.
Als ik voor fabriek ab6 kies moet hij de data uit sheet ab6 halen.
De sheets moet nog gevuld worden met data dus weet niet om hoeveel regels het gaat.

Dan kan ik weer aan de gang met de keuze die de gebruiker heeft gemaakt in het invoerveld.



Vast bedankt.

 

[VenA]

Probeer het zo eens.

Private Sub Fabr_Change()
  If Fabr.ListIndex > -1 Then
    ar = Sheets(Fabr.Value).Cells(1).CurrentRegion
    With CreateObject("scripting.dictionary")
      For j = 1 To UBound(ar)
        .Item(ar(j, 1)) = ""
      Next j
      inv.List = .keys
      inv.ListIndex = -1
    End With
   Else
    MsgBox "maak eerst een keuze"
    inv.Clear
  End If
End Sub