Autofilter, nummerer synlige rækker

En kvik en: kopierer din filtrerede data ind i et andet ark.
... måske for kvikt?
/ Luffe

ja, desværre luffe, det skal være i det samme ark :)
alan

Public Sub Rækkenummer()
    X = 1
    RK = Range("A1").CurrentRegion.Rows.Count
    For Each C In Range("A1:A" & RK).Cells 'Ret A til den kolonne den skal skrive i
        If C.EntireRow.Hidden = False Then
            C.Value = X
            X = X + 1
        End If
    Next
End Sub

hvordan går det ??

hejsa Kabbak,

undskyld den sene reaktion

mvh alj

takker for løsningen
alj

*