14. juni 2007 - 11:22
Der er
6 kommentarer og 1 løsning
Fjerne de sidste 7 tal/bogstaver i en celle
Hej med jer eksperter... Jeg har noget data A034490A A034500A A101620A A101620A A102680A A102680A A102680A A102680A A104470A A104900A A110680A A120270A A126740A A131760A A131770A A131870A A131880A A131890A A131900A A131910A A131920A A131930A A131940A A131950A A131960A Jeg kunne godt tænke mig at få slette de sidste 7 tegn i hver celle. Kan man det? (ps har 4700 celler det skal gøres ved)
Annonceindlæg fra IBM
Hejsa ... Har lige lavet en simpel makro ... Sub Test() For x = 1 To AntCeler verdi = Cells(x, 1) If Len(verdi) >= 7 Then Cells(x, 1) = Left(verdi, Len(verdi) - 7) End If Next x End Sub Den burde kunne klar jobbet ...
Højreklik på fanen og vælg program kode ... I venstre side finder du hvor der står module1 f.eks. Og er der ikke oprettet nogen modul så øverst i menuen kan du vælge insert modul, og det gør du. Heri kan du placerer makroen Vha. alt+F8 kan du køre makroen Test. Du skal lige have tilpasset makroen, da jeg ikke ved hvor dine data er placeret ... Forståeligt? Søren