Avatar billede bkhansen Novice
22. januar 2014 - 09:26 Der er 7 kommentarer og
1 løsning

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

Hejsa.
Jeg har en lang række celler, hvor jeg skal have slettet alt tekst, og kun stå tilbage med tal.

Fx.
Tekst bla bla fff 15% 0,5l
Abolu shha ffyy 11% 0,5l
tre juhy ddd 15 % 0,5l
J.g juu ddd dssssssd  ddd 11% 0,75l
tty 11 % 0,75l

Optimalt:
Første celle: Stå tilbage med 15
Men hvis det gør det nemmere, så er dette også ok: 15 0,5

Kan I hjælpe med dette?

Mvh Brian
Avatar billede supertekst Ekspert
22. januar 2014 - 09:35 #1
VBA skulle kunne klare dette - hvordan kan cellerne identificeres?
Avatar billede supertekst Ekspert
22. januar 2014 - 10:16 #2
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
Avatar billede bkhansen Novice
22. januar 2014 - 11:09 #3
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
Avatar billede bkhansen Novice
22. januar 2014 - 11:18 #4
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?
Avatar billede supertekst Ekspert
22. januar 2014 - 11:25 #5
Hej Brian

Ok - har du mulighed for at sende arket - så skal jeg se på det?
@-adresse under min profil
Avatar billede MGothche Nybegynder
22. januar 2014 - 11:35 #6
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?
Avatar billede bkhansen Novice
22. januar 2014 - 12:18 #7
Yes takker :-)

Smider du svar ?
Avatar billede MGothche Nybegynder
22. januar 2014 - 13:02 #8
Lyder godt.! :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester