Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub UserForm_Initialize()
Dim rData As Range
Dim arrItems()
With ActiveSheet
Set rData = .Range("A1").CurrentRegion
rData.Copy .Range("Z1")
.Range("Z1").Sort _
Key1:=.Range("Z1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
arrItems = .Range("Z1").CurrentRegion.Value
Me.ComboBox1.List() = arrItems
.Range("Z1").CurrentRegion.Clear
End With
Set rData = Nothing
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.