Avatar billede henrik4223 Nybegynder
18. oktober 2006 - 15:16 Der er 9 kommentarer og
1 løsning

Hvordan fjerner man automatisk mellemrum?

Hvordan laver jeg en makro med "trim" kommandoen, der sletter alle mellemrum foran og efter en tekst i en celle (og ikke imellem teksten) i et helt ark?
Avatar billede supertekst Ekspert
18. oktober 2006 - 15:21 #1
Ltrim og Rtrim

Left    Right
Avatar billede henrik4223 Nybegynder
18. oktober 2006 - 15:28 #2
Men hvordan skal en "hel" macro se ud i VB?
Avatar billede supertekst Ekspert
18. oktober 2006 - 15:44 #3
Har du skrevet noget kode, hvor xTrim skal anvendes - så prøv at vise denne.
Avatar billede kabbak Professor
18. oktober 2006 - 16:40 #4
Sub FjernBlanke()
    Range("A1").CurrentRegion.Select
    For Each c In Selection
        c.Value = Application.WorksheetFunction.Trim(c.Value)
    Next
End Sub
Avatar billede henrik4223 Nybegynder
20. oktober 2006 - 11:12 #5
Det virker super - Hvordan får man den til at gøre det for hele arket?
Avatar billede kabbak Professor
20. oktober 2006 - 11:58 #6
Det skulle den gøre automatisk nu

Sub FjernBlanke()
    Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
    For Each c In Selection
        c.Value = Application.WorksheetFunction.Trim(c.Value)
    Next
End Sub
Avatar billede henrik4223 Nybegynder
20. oktober 2006 - 12:27 #7
Super - tak
Avatar billede bak Forsker
20. oktober 2006 - 12:30 #8
Kabbak -> hvis man vil være fri for loopet så kan man gøre sådan:

Sub test()
Dim rng As Range
Set rng = Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell))

rng.Value = Application.Trim(rng.Value)
End Sub
Avatar billede kabbak Professor
20. oktober 2006 - 12:35 #9
Tak Bak, jeg var ikke sikker på at den virkede uden loop.
Avatar billede bak Forsker
20. oktober 2006 - 12:37 #10
Heller ikke her.
For hvis man skriver
ng.Value = Application.Worksheetfunction.Trim(rng.Value)
virker det ikke :-)
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