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 Worksheet_Change(ByVal target As Range)
If Not Intersect(target, Range("A1:A10")) Is Nothing Then
Select Case LCase(target.Value)
Case "jan": target.Offset(, 1) = 1
Case "piet": target.Offset(, 1) = 3
Case "henk": target.Offset(, 1) = 5
End Select
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.