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.
Sub waarden_GROOT_en_vet()
Application.ScreenUpdating = False
Dim cl As Range
For Each cl In Range("E16:AB75")
Select Case UCase(cl.Value)
Case "N", "A", "CH", "T"
cl.Value = UCase(cl.Value)
cl.Font.Bold = False
cl.Value = "NACHT"
End Select
Next
Dim cl2 As Range
For Each cl2 In Range("E16:AB75")
Select Case UCase(cl2.Value)
Case "KPO", "V", "TK", "WD", "WN", "EDUC", "NACHT", "Z", "OPL", "HW"
cl2.Value = UCase(cl2.Value)
cl2.Font.Bold = False
End Select
Next
Dim cl3 As Range
For Each x In Range("E16:AB75")
x.Value = UCase(x.Value)
Next
Application.ScreenUpdating = True
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.