Gefilterde cellen manipuleren

[puppystad]

Beste allen,

Ik ben op zoek naar een manier om gefilterde cellen in excel te manipuleren. Bijvoorbeeld: Ik heb een tabel met een aantal A en een aantal B. Ik wil dan filteren op B, en daar achter 1,2,3,4 schrijven. Zodat het resultaat is:
B|1
B|2
B|3
B|4
B|5
B|6

Nou lukt het mij niet om voor 1,2,3,4 etc deze reeks door te trekken, juist omdat het filter is toegepast. Ook kan ik niet de reeks in een ander document maken en naar dit document kopiëren. Iemand een oplossing?

Alvast bedankt!

 

[AlexCEL]

Zonder voorbeeld geen oplossing ben ik bang.
En welke Excel-versie gebruik je?

 

[snb]

Waarvoor heb je dit nodig ?
In VBA 1 fluitje van 1 cent.

 

[JEC.]

Je hoeft niet te filteren

Sub jec()
 Dim ar As Variant, i As Long, x As Long
 ar = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row)
  
 For i = 1 To UBound(ar)
   If ar(i, 1) = "B" Then ar(i, 2) = x + 1: x = x + 1
 Next
  
 Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row) = ar
End Sub

 

[snb]

=countif($A$1:$A1;"B")

 

[puppystad]

Ik heb het opgelost door te werken met de KU-Tools plugin van https://nl.extendoffice.com/product/***ools-for-excel.html

 

[AlexCEL]

De link werkt niet omdat er schuttingtaal in staat :d

 

[HSV]

Ter vermaking dan maar.

Sub hsv()
 Cells(1).CurrentRegion.Offset(1).Columns(1).Name = "b"
 [b].Offset(, 1) = [if(b="B",countif(offset(a1,,,row(b),1),b),"")]
End Sub