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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
NUM. tastatur og pc indbygget mus virker ikke. Af arnepedersen i Excel 24 I går 10:47 I dag 13:54
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel 5 19/12/202410:24 22/12/202413:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel 2 16/12/202415:27 17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel 23 13/12/202412:32 18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel 1 10/12/202409:17 10/12/202410:35
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
IT-JOB

DSV

Applied Research Scientist - Digital Enterprise Transformation

Københavns Professionshøjskole

Cloudarkitekt

Netcompany A/S

Test Specialist

DSV

Business Relationship Manager

Cognizant Technology Solutions Denmark ApS

Test Manager
Seneste spørgsmål Seneste aktivitet
I dag 07:53 Kan jeg lave en "søg og erstat" i databasen Af a3-seo.dk i MySQL
I går 11:30 Ændre det aller første billed, man ser ? Før man skriver koden (Windows 11) ... Af Ikke-ekspert i Windows
I går 10:47 NUM. tastatur og pc indbygget mus virker ikke. Af arnepedersen i Excel
I går 04:32 Korrupt CF kort Af Mozcan i Foto & video
26/1221:34 install.esd og boot.wim Af sjass i Windows
White papers
Flere white papers »


Premium
Teaser billede
Ny leverandør har netop underskrevet kontrakt med Kombit om kæmpe dansk bibliotekssystem
Læs mere »
M365 Copilot kan blive hurtigere og billigere: Microsoft åbner for alternativer til OpenAI
Ny europæiske supercomputer med 14.000 GPU’er sætter danske Gefion til vægs: Skal bruges til at udvinde kulsort energi
Nye skatteregler for kryptovaluta udskydes: Vil påvirke 300.000 danskere
Se alle »
Computerworld
Teaser billede
Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder
Læs mere »
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Test: Endelig en videodørklokke i smart indpakning og performance, der matcher
Se alle »
CIO
Teaser billede
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Læs mere »
Vores vidensindsamling og demokratiske samtale påvirkes af helt lukkede beslutninger i en enkelt privat virksomhed
Den danske ungdom ser intet formål i at arbejde med it
Tivoli søger ny CIO: Kenneth Hartvig stopper efter tre år på posten
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Beskyt virksomheden mod trusler – og hold ressourceforbruget nede
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Derfor kræver AI, cloud og sikkerhed et stærkere netværk
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Se alle »

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