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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Omregning af tider Af Peder Lund Nielsen i Excel 4 28/07/202517:55 28/07/202520:52
Timer og minutter Af mefa i Excel 1 24/07/202507:03 24/07/202508:02
Formelhjælp Af boro23 i Excel 2 22/07/202509:22 22/07/202510:47
Forbind Worksheet med en Formular Af per2edb i Excel 5 16/07/202514:45 16/07/202519:00
Sæt Overskrift / Caption ved hjælp af vba kode Af per2edb i Excel 3 15/07/202516:04 15/07/202519:01
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
01/0823:45 Råd om køb af gaming pc til ca. 7.0000 kr. Af kurtba i PC
01/0822:33 Thunderbird starter først lydfil ved manuel åbning. Af valby i E-mail programmer
01/0815:04 Bluetooth 5.2 Af Peter Olsen i Mobiltelefoner
01/0813:38 Valg af harddisk til Samsung TV Af OeNP i Fjernsyn & projektorer
31/0714:26 Nyligt bygget computer slukkede efter 20 minutters funktionalitet Af Xerify i PC
White papers
Flere white papers »


Premium
Teaser billede
ChatGPT slået af tronen: Ikke længere virksomhedernes foretrukne AI-værktøj
Læs mere »
Nvidias danske afdeling boomer: Over 100 ansatte og fordoblet overskud
Dropbox lukker sin passwordmanager: Brugere skal hente adgangskoder, inden de bliver slettet
I løbet af få timer torsdag blev Microsoft tusind milliarder kroner mere værd: Runder som blot andet selskab nogensinde markant milepæl
Se alle »
Computerworld
Teaser billede
Din iPad bliver nu (næsten) en Mac - men Apple insisterer på, at den stadig er en iPad
Læs mere »
Microsoft stopper support til Windows 11-version om få måneder
Amazon er verdens næststørste private arbejdsgiver: Overgåes kun af et selskab på jorden
Hacker-grupper rammer kendt flyselskab med koordineret angreb
Se alle »
CIO
Teaser billede
Jonas Frank Johannesen fratræder som it-direltør i Velux efter 'konstruktiv dialog' med sin chef
Læs mere »
Microsoft dropper support af M365-programmer, der er installeret gennem Microsoft Store: Se om din version bliver forældet
Europæiske cloud-udbydere kræver Broadcoms opkøb af VMware annulleret: Hiver EU-Kommissionen i retten
Microsoft-chef under ed: Ingen garanti for, at europæriske data ikke udleveres til USA
Se alle »
Job & Karriere
Teaser billede
Danske it-folk tør ikke længere skifte job hele tiden - og det er der en særlig årsag til
Læs mere »
Itm8 fyrer: Opsiger ansatte og reorganiserer
Lille dansk it-virksomhed fra Vanløse lander drømmekontrakt, der rækker langt ind i stifterens pension
Larry Ellison er blevet 165 milliarder kroner rigere på få timer: Er nu pludselig verdens næstrigeste mand
Se alle »
White paper
Teaser billede
Sådan får du succes med AI i hele organisationen
Læs mere »
Sådan samler du virtualisering og containerdrift i én løsning
NIS2: Sådan styrker du både cybersikkerhed og compliance
Gør din backup til et aktiv i cybersikkerhedsindsatsen
Se alle »

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