Soter "Falske" Celler fra i tabel

Via VBA-kode skulle det nok være muligt.

Du er velkommen til at sende din fil - så kan jeg prøve at se på det. @-adresse under min profil.

og så velkommen til Eksperten.

Hvis du uploader et eksempel til gupl.dk så vi jeg gerne tag et kig på det.

Const fraRæk = 4
Const tilRæk = 32
Dim ræk As Integer, ledigRæk As Integer, flag As Boolean, tomRække As Integer

Dim antalDia As Integer
Const diaBasis = 57
Const maxH = 760
Const diaH = 55
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$N$2" Then
        visAlleRækker
        visDiagram
        Cancel = True
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$N$2" Then
        visAlleRækker
        visDiagram
    End If
End Sub
Sub visDiagram()
    Application.ScreenUpdating = False
    skjulFalskeRækker
End Sub
Private Sub skjulFalskeRækker()
    antalDia = 0
   
    Application.ScreenUpdating = False
    For ræk = fraRæk To tilRæk
        If ActiveSheet.Range("N" & ræk) = False Then
            Rows(ræk & ":" & ræk).Select
            Selection.EntireRow.Hidden = True
        Else
            antalDia = antalDia + 1
        End If
    Next ræk
   
    beregnDiaHøjde
End Sub
Private Sub visAlleRækker()
    Application.ScreenUpdating = False
    For ræk = fraRæk To tilRæk
        Rows(ræk & ":" & ræk).Select
        Selection.EntireRow.Hidden = False
    Next ræk
End Sub
Sub beregnDiaHøjde()
Dim samletH As Double
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.ChartArea.Select
    samletH = diaBasis + antalDia * diaH
   
    If samletH > maxH Then
        samletH = maxH
    End If
   
    Selection.Height = samletH
End Sub