Skjule kolonne og række og arkvisningen i et enkelt ark

Funktioner - Indstillinger - Vis.

Du kan stadig referere til dem via kode

Du kan vist ikke fjerne kolonneoverskrifterne alene - rækkeoverskrifterne forsvinder også, når du gør det.

Her er nogen forslag til funktioner til dine skjule/vise funktioner. Funktioner kan f.eks. kaldes via kommandoknapper.

Sub VisSkjulOverskrifter()

If ActiveWindow.DisplayHeadings Then
    ActiveWindow.DisplayHeadings = False
Else
    ActiveWindow.DisplayHeadings = True
End If

End Sub

Sub VisSkjulFaneblade()

If ActiveWindow.DisplayWorkbookTabs Then
    ActiveWindow.DisplayWorkbookTabs = False
Else
    ActiveWindow.DisplayWorkbookTabs = True
End If

End Sub

Sub VisSkjulRække(RækkeNr As Long)
Dim CurPos As String

CurPos = ActiveCell.Address
If Rows(RækkeNr).EntireRow.Hidden Then
    Rows(RækkeNr).Select
    Selection.EntireRow.Hidden = False
Else
    Rows(RækkeNr).Select
    Selection.EntireRow.Hidden = True
End If
Range(CurPos).Select

End Sub

ok mange tak for hjælpen, begge kommentarer kan jeg bruge.

Giv begge et svar :-)

Gi' dem til sjap ;-)

Et svar. :0)