We gaan weer een stapje verder en laten nu het gebruik van 'Select Case' in een zelfgemaakte formule zien.

Opdracht: Excel heeft alleen een formule om het nummer van een (week)dag aan te geven dus voor maandag 1, dinsdag 2, etc   
ik wil graag een formule hebben die mij van een datum toont welke weekdag dit geweest is.   
Maak een formule om op basis van een datum de naam van deze dag te tonen.   
   

• Toets ALT-F11   
• Kies Invoegen Module   
• Zet het volgende in de formule:   

    
Function DagNaam(WelkeDatum As Date)    
    Dim DagNummer As Integer    
    DagNummer = Weekday(WelkeDatum, vbSunday)    
    Select Case DagNummer    
        Case 1    
            DagNaam = "Zondag"    
        Case 2    
            DagNaam = "Maandag"    
        Case 3    
            DagNaam = "Dinsdag"    
        Case 4    
            DagNaam = "Woensdag"    
        Case 5    
            DagNaam = "Donderdag"    
        Case 6    
            DagNaam = "Vrijdag"    
        Case 7    
            DagNaam = "Zaterdag"    
    End Select    
End Function    
    

In een select case kijken we steeds of de waarde die we 'afvragen' overeenkomt met een opgegeven waarde. In ons voorbeeld bepalen we dus wat de dagnaam is van 10 februari 2013

* Overigens is er gewoon een bestaande functie binnen Excel om hetzelfde te bereiken: =TEKST(B50;"DDDD")   

Doe mee met formules in Excel!