CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
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
Excel kurser
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
VBA - Excel programering til Onenote Af ingeman i Excel 4 24/04/202512:37 I går 10:23
SQL til excel med farver Af Jjn i Excel 1 24/04/202511:50 24/04/202513:56
Tidsformater Af Peder Lund Nielsen i Excel 5 21/04/202520:54 23/04/202522:15
Opdele ét ark i flere ark Af karina1971 i Excel 13 15/04/202507:20 16/04/202509:07
Arbejdstid opdeles i tidsintervaller Af Camilla i Excel 2 14/04/202516:08 14/04/202517:17
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 15:36 Konvertere filer fra spil-cd til en intallations fil Af boxer i Andet software
24/0423:30 Egenskaber/genvejstast virker ikke mere Af Blød trafikant i Windows
24/0416:12 Forbind TDC NET fiber til router med én SPF+ WAN-port Af Gustav i LAN/WAN
24/0415:37 DMI vejr Af hkv i Browsere
24/0412:37 VBA - Excel programering til Onenote Af ingeman i Excel
White papers
Flere white papers »


Premium
Teaser billede
Tidligere Conscia-topchef Claus Thorsgaard lander internationalt topjob: Bliver CEO i selskab med 500 ansatte
Læs mere »
Den danske milliardvirksomhed Trackman overvejer at flytte produktion til USA efter Donald Trumps toldmure
Ofir lukker og slukker: Slut med den sidste af de store danske portaler fra internettets barndom
EU vil gøre det lettere for dig at sammenligne smartphones: Nu skal alle nye telefoner udstyres med dette mærkat
Se alle »
Computerworld
Teaser billede
Facebook og Instagram vil igen anvende dine opslag og kommentarer til at træne AI-modeller: Sådan kan du undgå det
Læs mere »
Det koster millioner, når du er høflig over for ChatGPT
Donald Trump og Elon Musk kan koste IBM dyrt: Mister stribevis af offentlige kontrakter
Google udløste ‘Code Red’ i panik: Nye tal viser frygten er reel i Europa
Se alle »
CIO
Teaser billede
Region Syddanmark vil købe kæmpe it-system og gå i clouden - står klar med næsten kvart milliard kroner
Læs mere »
Her er Danmarks fem bedste CIO’er lige nu: De er nomineret til prisen som Årets CIO 2025
Sådan har Microsoft Danmark erstattet 80 procent af stillingerne i sin økonomi-afdeling med AI - og gjort medarbejderne glade
Google-stifter kræver 60 timers arbejdsuge: Sådan går det i it-virksomheder, som vælger den anden vej og tilbyder nedsat tid
Se alle »
Job & Karriere
Teaser billede
Den danske it-branche er på vagt: Hvad nu hvis Trump lukker for Microsoft 365 og AWS fra på mandag?
Læs mere »
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Danske it-folk lokkes med store tiltrædelses-bonusser: Nu kan du score mere end 100.000 kroner ved at skrive under på ny jobkontrakt
Så meget tjener en dansk it-udvikler i gennemsnit om måneden: Forventer at få solide lønstigninger inden længe
Se alle »
White paper
Teaser billede
Sådan: Virtualisering uden vendor lock-in og høje omkostninger
Læs mere »
Revolutionér kundeoplevelsen med AI og automatisering
Udnyt Genesys Cloud CX optimalt og styrk kundeoplevelsen
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »