Error: Case without select case

[Frits91]

Onderstaande code geeft de foutmelding "Case without select case". Weet iemand waar de fout in deze code zit?

Alvast bedankt!

[COLOR="#0000FF"][I][I]Private Sub cmdBerekenen_Click()

Dim strResultaat As String
Dim intLeeftijd As Integer
Dim intProduct As Integer
Dim intTeller As Integer

strResultaat = ""

Select Case True

Case txtLeeftijd.Text = ""
    strResultaat = "Vul eerst een getal in"
Case Not (IsNumeric(txtLeeftijd.Text))
    strResultaat = "U mag enkel een getal invoeren"
Case txtLeeftijd.Text < 5
    strResultaat = "U bent te jong voor zakgeld"
Case txtLeeftijd.Text > 21
    strResultaat = "U bent te oud voor zakgeld"

Case optActie1.Value = True
    For intTeller = 5 To Val(txtLeeftijd.Text)
    intTeller = intTeller * intZakgeld
    strResultaat = strResultaat & Int(intTeller) & " : " & Str(intProduct) & vbCrLf

Case optActie2.Value = True
    For intTeller = 5 To Val(txtLeeftijd.Text)
    intProduct = intTeller * intZakgeld + 2
    strResultaat = strResultaat & Int(intTeller) & " : " & Str(intProduct) & vbCrLf
    
    Next intTeller

End Select

txtResultaat.Text = strResultaat
intLeeftijd = DateDiff("yyyy", txtLeeftijd, Date)

End Sub[/I][/COLOR]

 

[mcs51mc]

Volgens mij heb je de "Select Case" structuur niet goed begrepen
Je gooit 3 controls in 1 case, dat kan niet.

Je moet een case hebben voor txtLeeftijd.Text
Een andere voor optActie1.Value
En een derde voor optActie2.Value
Maar voor die laatste 2 heb je eigenlijk geen Select case nodig daar dit slechts True & False kan zijn, een If/Then/Else volstaat hier wel.

Onderstaande code is zeker geen oplossing voor je probleem maar geeft aan hoe je een tekst laat opkomen volgens de inhoud van een cel.
Laat dit een voorbeeld zijn voor een correcte setup van een Select Case

Private Sub Worksheet_Change(ByVal Target As Range)

    Select Case Target.Value
    
        Case Is = ""
            MsgBox "lege cel"
        
        Case Is < 5
            MsgBox "Kleiner dan 5"
            
        Case Is > 12
            MsgBox "Groter dan 12"
            
        Case Else
            MsgBox "Iets die niet voorzien is in code"
            
    End Select
End Sub

 

[Frits91]

Dank voor het antwoord. Ik begrijp de select case inderdaad niet helemaal. Inmiddels is het duidelijker.

Kun je mij ook helpen met een stukje code over dit onderwerp? Ik heb de vraag gepost onder een nieuw onderwerp "opdrachten herhalen" Dit is dezelfde problematiek.

Bedankt!!