Excel: Fjerne alt tekst i en celle - kun tal skal stå tilbage?

VBA skulle kunne klare dette - hvordan kan cellerne identificeres?

Anbring VBA-koden "under" relevante ark
Marker de relevante celler og igangsæt koden
Kan udvides til også at fjerne decimaltal

Public Sub fjernTekst()
Dim cc
    For Each cc In Selection.Cells
        cc.Value = hentKunTal(cc.Text)
    Next
End Sub
Private Function hentKunTal(tekst)
Dim x As Integer, tal As String
    tal = ""
    For x = 1 To Len(tekst)
        If IsNumeric(Mid(tekst, x, 1)) = True Then
            If Mid(tekst, x + 1, 1) = "," Then
                tal = tal & Mid(tekst, x, 1) & ","
               
            Else
                tal = tal & Mid(tekst, x, 1)
            End If
        Else
            If Mid(tekst, x, 1) <> "," Then
                tal = tal & " "
            End If
        End If
    Next x
    hentKunTal = Trim(tal)
End Function

Hejsa.

Det er første gang jeg skal sætte en VBA kode ind - hvor gøres dette?

Det drejer sig om celle W2 til og med W337

mvh Brian

hej.
Jeg har nu fundet ud af det, meeen :-)
Alt + F11 - finder det ark det drejer sig om ... dobbeltklikker på det ... Indsætter koden, trykker gem - så kører den koden igennem, men der sker ingen ting (Felterne W2 - W337 er markeret i dokumentet)

Hvad gør jeg forkert?

Hej Brian

Ok - har du mulighed for at sende arket - så skal jeg se på det?
@-adresse under min profil

Hvad med følgende:

Indsæt kolonne med følgende formel:
ERSTAT(FJERN.OVERFLØDIGE.BLANKE(HØJRE(C46;9));3;1;"")
Indsæt ny kolonne igen:
=VENSTRE(C50;(LÆNGDE(C50)-1))

C46 = din oprindelige tekst
C50 = formlen, der start med erstat....

Kan det lykkedes?

Yes takker :-)

Smider du svar ?

Lyder godt.! :)