Op Blad2 staan de validatielijsten: In kolom B staat de lijst van de medewerkers.
Met een ComboBox wil ik een naam kiezen, die verwijderd moet worden uit Kolom B op Blad2.
Na het verwijderen, zou in Kolom B opnieuw een aaneengesloten lijst moeten staan.
Met een ComboBox wil ik een naam kiezen, die verwijderd moet worden uit Kolom B op Blad2.
Na het verwijderen, zou in Kolom B opnieuw een aaneengesloten lijst moeten staan.
Code:
Private Sub userform_Initialize()
With Sheets(2)
ComboBox1.List = Application.Transpose(.Range("B2").Resize(Application.CountA(.Columns(2)) - 1))
End With
End Sub
Private Sub CommandButton1_Click()
'Hier de code om de gekozen naam van de ComboBox, te verwijderen uit de lijst op Blad2.
'Om geen lege plaats te krijgen, moeten de resterende namen,opschuiven naar boven, om terug een aaneengesloten lijst vormen.
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
