Udtage del af streng

som opde

Public Sub Udtræk_sidste_tal_i_Parentes()
Dim C As Range, A As Variant
    For Each C In Selection.Cells
        If Right(C, 1) = ")" Then ' tjekker om sidste tegn er en ")"
            A = Split(Replace(C, "(", ")"), ")") 'laver alle venstre parenteser om til højre og splitter strengen på dem
            C = A(UBound(A) - 1) ' så skal tallet være i den anden sidste
        End If
    Next
End Sub

som opde = som kode

Marker cellerne og kør makroen, husk kopi  af data, inden kørsel.

Og det virker da bare :)

Læg et svar!

Et svar ;-))