Fastfryse celle

brug
autofilter
eller
brug Access

Hvis det må være via VBA - kan det nok lade sig gøre..

det må gerne være via VBA

Ok vender tilbage

VBA-koden anbringes "under" det relevante ark:
Dobbeltklik på det ønskede kundenavn i kolonne A
Alle rækker over den aktiverede skjules og den aktuelle fryses.
Dette kan gentages nedenfor.

Højreklik for at vise alt igen


Option Explicit
Dim række As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        række = Target.Row - 1
       
        If række = 0 Then
            række = 1
            Rows("1:1").Select
        Else
            Rows("1:" & CStr(række)).Select
            Selection.EntireRow.Hidden = True
        End If
           
        frysØversteRække
    End If
End Sub
Private Sub frysØversteRække()
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 0
    End With
   
    ActiveSheet.Rows.Hidden = False
    Cancel = True
End Sub