Hej hej

Accepterar du en vba lösning så:

tryck alt f11, skapa en ny modul i projektfönstet. Dubbelclicka på modeul 1 och lägg in nedan kod i fönstret som öppnas. Stäng sedan vba fönstret och välj spara som, spara som .xlsm (macroaktiverad arbetsbok). Functionen MyCount startas sedan med att först beskriva intervallet och sedan cellen i intervallet parallellt där du skriver funktionen.

exempel skriven i cell B1, med ett intervall a1:a5: = MyCount($A$1:$A$5); A1) Viktigt att du har skriver intervallet med absolut referens och cellen med relativ.

Mvh Christian

koden:
Public Function myCount(intervall As Range, mycell As Range)

Dim i As Long: i = 1
Dim nextCell As Range

Set nextCell = mycell.Offset(1, 0)

'nextCell.Range.Resize(.Row, .Column) = nextCell.Range(.Row + 1, .Column)
Do While Intersect(mycell, intervall) And mycell.Value = nextCell.Value
i = i + 1
Set nextCell = mycell.Offset(i, 0)
Loop

Set nextCell = mycell.Offset(-1, 0)
x = i
i = 1

'nextCell.Range.Resize(.Row, .Column) = nextCell.Range(.Row + 1, .Column)
Do While Intersect(mycell, intervall) And mycell.Value = nextCell.Value
i = i + 1
x = x + 1
Set nextCell = mycell.Offset(-i, 0)
Loop

myCount = x

End Function