Skjul rækker udfra celle input.

Jeg vil gerne have excel til at skjule nogle linjer i mit ark ud fra hvad der er valgt i A3.

eks: A3 = Model A
Excel skal nu skjule linje 7:17.


Nu kommer den lidt mere tricky del:

Jeg har samtidig en knap til at indsætte en ny linje, hvorfor arket selv skal finde ud af hvad der skal skjules.

Jeg har overvejet om jeg kan kode den, så jeg definere indholdet i en celle i den række som skal skjules, for således at den bare finder den celle og skjuler derfra.

Makro indtil videre:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range("A3"), Range(Target.Address)) Is Nothing Then
        Select Case Target.Value
        Case Is = "Sag u. 50.000kr.": Rows("19:54").EntireRow.Hidden = True
                            Rows("7:17").EntireRow.Hidden = False
        Case Is = "Model A": Rows("7:17").EntireRow.Hidden = True
                            Rows("19:32").EntireRow.Hidden = False
                            Rows("33:54").EntireRow.Hidden = True
        Case Is = "Model B1":  Rows("35:42").EntireRow.Hidden = False
                            Rows("7:33").EntireRow.Hidden = True
                            Rows("43:54").EntireRow.Hidden = True
        Case Is = "Model B2":  Rows("35:42").EntireRow.Hidden = False
                            Rows("7:33").EntireRow.Hidden = True
                            Rows("43:54").EntireRow.Hidden = True
        Case Is = "Model B3":  Rows("47:54").EntireRow.Hidden = False
                            Rows("7:46").EntireRow.Hidden = True
        End Select
End If
End Sub