Avatar billede mikkelrud Nybegynder
03. juli 2006 - 19:26 Der er 3 kommentarer og
1 løsning

Skille tal fra tekst - til "excellent"

X Jeg har en lang kolonne, som indeholder både tal og tekst i samme celle. Tal er fra rekvistionsnr og tekst er leverandør. Fx "32554 TDC" eller "DSB 1122". Dvs. tal står både foran og efter tekst og tal er af forskellig længde. Er der en der har en makro til denne opgave? Jeg har søgt her på siden uden held.

På forhånd tak :-)
Avatar billede excelent Ekspert
03. juli 2006 - 19:29 #1
Sub koverter()

Dim i, j, x, Indhold, tal

For i = 1 To 100
Indhold = ActiveCell.Value
  x = Len(Indhold)
  For j = 1 To x
    If IsNumeric(Mid(Indhold, j, 1)) Then tal = tal & Mid(Indhold, j, 1)
  Next
  ActiveCell.Offset(0, 0).Value = tal
tal = ""
ActiveCell.Offset(1, 0).Activate
Next
ActiveCell.End(xlUp).End(xlUp).Activate

End Sub
Avatar billede excelent Ekspert
03. juli 2006 - 19:30 #2
marker første værdi og kør makro
Avatar billede excelent Ekspert
03. juli 2006 - 19:31 #3
For i = 1 To 100 ' ret til aktuel antal rækker
Avatar billede excelent Ekspert
03. juli 2006 - 19:36 #4
marker box med mit navn, og klik accepter
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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