VBA code vereenvoudigen (opsomming)

[allard1]

Hoi Allemaal
Ik weet dat het ongebruikelijk is om 2 vraagstukken in een keer te plaatsen, maar ik zit met iets wat me een doorn in het oog is. Ik heb een code die fantastisch werkt, maar het is een draak van een code. Ik wil het toch een beetje netjes doen natuurlijk. De code is alsvolgt:

Private Sub cmdstaffelzoeken_Click()
If Range("b14").Value = 19 Or Range("b14").Value = 20 Or Range("b14").Value = 21 Or Range("b14").Value = 22 Or Range("b14").Value = 23 Or Range("b14").Value = 24 Then
Range("b25").Value = Worksheets("proefStaffel").Range("c2").Value
Else
MsgBox "geen staffel beschikbaar voor de door u gekozen leeftijdsgroep"

End If
End Sub

Hetgeen mij dwars zit is de opsomming. Wie kan mij voor eens en voor altijd van deze zoektocht afhelpen.

Groet,
Allard

 

[Wigi]

Private Sub cmdstaffelzoeken_Click()

    Select Case Range("B14").Value
    
        Case 19 To 24: Range("B25").Value = Sheets("proefStaffel").Range("C2").Value
        Case Else: MsgBox "geen staffel beschikbaar voor de door u gekozen leeftijdsgroep"
    
    End Select
    
End Sub

Wigi

 

[allard1]

Hoe kan het ook anders dan de enige echte allesweter Bedankt Wigi weer een stap verder in de goede richting.
Groet,
Allard