Gruppering af data automatisk

Det kunne jeg finde på at gribe an på en anden måde...

Højreklik på din ark fane og vælg "View code" og indsæt følgende:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Not Target.Value = "" Then
            Target.Offset(1, 0).Resize(2).EntireRow.Hidden = Not Target.Offset(1, 0).Resize(2).EntireRow.Hidden
            Cancel = True
        End If
    End If
End Sub

Luk VBA editoren igen og dobbeltklik på en celle i kolonne A.
-> hvis cellen er tom skulle der ikke ske noget
-> hvis cellen indeholder noget, som f.eks. KonernNavn1, så skjules de 2 rækker under koncernen... med mindre de allerede var skjult, hvorfor de istedet bliver vist.

ovenstående er ikke lavet særlig sikker... den kræver at du har 2 blanke linier mellem alle koncern navne, men det kan fikses, hvis du kan lide/bruge ideen.

stil dig på arket og kør denne makro.
Den er taget fra et lignende spm.  http://www.eksperten.dk/spm/432610

Sub GroupThem()
    Dim RangeToUse As Range
    Dim SingleArea As Range
    ActiveSheet.Outline.SummaryRow = xlAbove
    Set RangeToUse = Range(Cells(1, 2), Cells(65536, 2).End(xlUp)). _
                    Offset(0, -1).SpecialCells(xlCellTypeBlanks)
    If RangeToUse.Areas.Count = 1 Then
        RangeToUse.Rows.Group
    Else
        For Each SingleArea In RangeToUse.Areas
            SingleArea.Rows.Group
        Next
    End If
End Sub

For pokker, flemming. Du er hurtig :-)

det virker perfekt ! tak for hjælpen

hvilken kode har du brugt ?

den sidstnævnte

så accepterer du bare svaret og så er det spørgsmål lukket

lykkes det mig mon at fordele nogle velfortjente point?

ja, det gik fint .-)