Excel target range gebruiken in select statement

[Vis de vis]

Hallo,

Effe kort schetsen: Ik heb een aantal cellen een naam gegeven. Op basis van de waarde in die cellen ("ja" of "nee"), moeten de rijen eronder verdwijnen of verschijnen.

Maar dat lukt me om een of andere reden niet. Ik krijg steeds de melding "argument not optional" dus er zit wsch iets fout bovenaan in m'n select case statement, maar ik kan er mijn vinger niet op leggen. Kan er iemand helpen? Ik heb me al suf gegoogled en ge븰erimenteerd...

Hieronder m'n code

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ourRange As Range
Set ourRange = Range("mijnCel1,mijnCel2,mijnCel3")
If Intersect(Target, ourRange) Is Nothing Then
  Exit Sub
Else

Select Case Target.Range

'--> hier krijg ik de "argument not optional" exception
'Al vanalles geprobeerd (Target, Target.Range.Name en een hoop andere attributen maar helaas...)

Case Target.Range("mijnCel1")
    If Target.Value = "Nee" Then
        Rows(Target.Row + 1).EntireRow.Hidden = True
        Cells(Target.Offset(1, 0)).Value = ""
    Else
        Rows(Target.Row + 1).EntireRow.Hidden = False
    End If

'en dan analoog voor de andere cases

End Select

End Sub

Alvast bedankt!

 

[ExcelAmateur]

Vis de vis,

Kijk eens of hij het zo wel doet.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ourRange As Range
Set ourRange = Range("mijnCel1,mijnCel2,mijnCel3")
If Intersect(Target, ourRange) Is Nothing Then
  Exit Sub

Select Case Target

'--> hier krijg ik de "argument not optional" exception
'Al vanalles geprobeerd (Target, Target.Range.Name en een hoop andere attributen maar helaas...)

Case Target.Range("mijnCel1")
    If Target.Value = "Nee" Then
        Rows(Target.Row + 1).EntireRow.Hidden = True
        Cells(Target.Offset(1, 0)).Value = ""
    Else
        Rows(Target.Row + 1).EntireRow.Hidden = False
    End If

'en dan analoog voor de andere cases

End Select
End Sub