Hulp met ComboBox nodig!

[Cobbe]

Dan bereken je het gemiddelde ook via VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A15] = WorksheetFunction.Average(Range("A1:A10").SpecialCells(xlCellTypeVisible))
End Sub

Groeten, Cobbe

 

[MeltedForest]

Cobbe,

Gelukkig is dat een kortere en snellere oplossing dan mijn:

Sub Refreshgem()
  Dim totLig As Long
  Dim i As Integer
    
  For Each cl In Sheets("Maandoverzicht").Columns(5).SpecialCells(xlCellTypeVisible)
    If cl.Rows.Row > 10 Then
      totLig = totLig + Range("Z" & cl.Rows.Row).Value
      i = i + 1
    End If
  Next
  
  Range("E2") = Format(totLig / i, "0.00") & " dagen"
End Sub

Bedankt :thumb:
Ik heb nu verder geen vragen meer