VBA Skjul/Vis rækker ved antal

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

If Range("B2") < 1 Or Not IsNumeric(Range("B2")) Then
Rows("3:13").EntireRow.Hidden = True
Application.ScreenUpdating = True
Exit Sub
End If

If Intersect(Target, Range("B2")) Is Nothing Then

    Rows("3:13").EntireRow.Hidden = False
    Rows(Range("B2") + 3 & ":13").EntireRow.Hidden = True

End If
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

If Range("B2") < 1 Or Range("B2") > 10 Or Not IsNumeric(Range("B2")) Then
Rows("3:13").EntireRow.Hidden = True
Application.ScreenUpdating = True
Exit Sub
End If

If Intersect(Target, Range("B2")) Is Nothing Then

    Rows("3:13").EntireRow.Hidden = False
    Rows(Range("B2") + 3 & ":13").EntireRow.Hidden = True

End If
Application.ScreenUpdating = True
End Sub

Hej store-morten
Mange tak for svar, jeg sidder med det nu, og er kommet på den ide at vi skal starte med indtastning i B28 (undskyld).
Jeg har derfor forsøgt at rette i din VBA kode, men ser ikke helt ud til det går, har gjort følgende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

If Range("B28") < 1 Or Range("B28") > 10 Or Not IsNumeric(Range("B28")) Then
Rows("29:39").EntireRow.Hidden = True
Application.ScreenUpdating = True
Exit Sub
End If

If Intersect(Target, Range("B28")) Is Nothing Then

    Rows("29:39").EntireRow.Hidden = False
    Rows(Range("B28") + 29 & ":40").EntireRow.Hidden = True

End If
Application.ScreenUpdating = True
End Sub

Kan du hjælpe mig hvad jeg gør forkert, den skjuler række 39?

God aften
Chris

Jeg har nu rettet lidt i den, men den vil ikke lade mig få 10 antal med, når jeg skriver det fjerner den rækken under navnene, samtidig med den kun viser 9 navnefelter, så ved 10 fjerner den 2 rækker.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

If Range("B28") < 1 Or Range("B28") > 10 Or Not IsNumeric(Range("B28")) Then
Rows("29:38").EntireRow.Hidden = True
Application.ScreenUpdating = True
Exit Sub
End If

If Intersect(Target, Range("B28")) Is Nothing Then

    Rows("29:38").EntireRow.Hidden = False
    Rows(Range("B28") + 29 & ":38").EntireRow.Hidden = True

End If
Application.ScreenUpdating = True
End Sub

Jeg har sat 29:38 da dette er 10 rækker, du havde skrevet 3:13 dette er egentlig 11 rækker.

Prøv:

Det er så smukt, mange tak. Jeg opretter en ny sag om et øjeblik, som drejer sig om noget andet.

God aften