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.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub hsv()
Dim cl As Variant, sq As Variant
For Each cl In Sheets(1).Columns(7).SpecialCells(2)
cl.Name = cl
Next cl
For Each cl In Application.Names
sq = sq & "," & cl.Name
[COLOR="#FF8C00"] cl.delete
[/COLOR]Next
With Range("A10").Validation
.Delete
.Add xlValidateList, , , sq
End With
End Sub
Sub Sorteren()
Dim sq, sq2, i As Integer
Dim lLoop As Integer, lLoop2 As Integer
Dim str1 As String, str2 As String
sq = Sheets(1).Columns(7).SpecialCells(2)
For lLoop = 1 To UBound(sq)
For lLoop2 = lLoop To UBound(sq)
If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
str1 = sq(lLoop, 1)
str2 = sq(lLoop2, 1)
sq(lLoop, 1) = str2
sq(lLoop2, 1) = str1
End If
Next lLoop2
Next lLoop
For i = 1 To UBound(sq)
sq2 = sq2 & "," & sq(i, 1)
Next
With Range("A10").Validation
.Delete
.Add xlValidateList, , , sq2
End With
End Sub
Range("Benodigheden").Sort Key1:=Range("Benodigheden")(1, 1)
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.