Avatar billede JERIS Nybegynder
20. juli 2013 - 19:48 Der er 13 kommentarer og
1 løsning

Autotilpasning af kolonne

Kan der ske en løbende autotilpasning af kolonnebredden (hvis indholdet ændres)?

Mvh.
Avatar billede JERIS Nybegynder
21. juli 2013 - 08:47 #2
Den har jeg prøvet. Den tilpasser også bredden, men hvis indholdet i kolonnen efterfølgende ændres, tilpasses bredden ikke automatisk.

Tak buddet.
Avatar billede natkatten Mester
21. juli 2013 - 10:02 #3
Denne VBA-kode ændrer automatisk bredden på de specificerede kolonner:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("A:Z").AutoFit
End Sub

Koden skal indsættes i det ark,

Tilpas ift. hvilke kolonner, der skal omfattes, f.eks. "A:AZ".
Avatar billede JERIS Nybegynder
21. juli 2013 - 11:14 #4
Nu må du vist have den pædagogiske ja-hat på... :o)
For at bruge VBA-koder taster jeg ALT+F11 - ikk'?
Hvad gør jeg så herfra?
Avatar billede natkatten Mester
21. juli 2013 - 11:29 #5
Så dobbeltklikker du på det ark, hvori koden skal indsættes. F.eks. Ark1. Og gemmer og lukket for VBE (VB-editoren. Herefter skulle det virke, hvis du vel at mærke har tilladt, at der afvikles makroer.
Avatar billede natkatten Mester
21. juli 2013 - 11:37 #6
Se dette eksempel:

http://gupl.dk/699233/

Bemærk, at denne tilpasser kolonnerne A-Z. Også de der f.eks. kun indeholder ét tegn. Hvis du kun skal have tilpasset bredden af én kolonne med varierende tekst, så ændr koden til f.eks. Columns("A").AutoFit
Avatar billede store-morten Ekspert
21. juli 2013 - 15:18 #7
Denne VBA-kode ændrer automatisk bredden på den kolonne der rettes i:
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).AutoFit
End Sub
Avatar billede JERIS Nybegynder
21. juli 2013 - 19:17 #8
Skal jeg markere nogle celler?

Når jeg klikker [alt F11)åbner "Microsoft visual basic" med en "tom"/grå baggrund. Hvad gør jeg her for at komme videre? 

Jeg kunne godt bruge en trin-for-trin vejledning....
Avatar billede JERIS Nybegynder
21. juli 2013 - 20:02 #9
Ok - ALT/F11 og herefter F7.
Kan jeg i en arbejdsgang gøre det gældende for alle arkene?
Avatar billede store-morten Ekspert
21. juli 2013 - 20:39 #10
Kopier koden her under.
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).AutoFit
End Sub

I Excel
Højre klik på det Ark makroen skal virke på, vælg 'Vis programkode'
Tryk ctrl+v og luk på det røde kryds.
Og det skulle virke.
Avatar billede JERIS Nybegynder
21. juli 2013 - 21:40 #11
Det hjælper på det :o) MAngler kun at få autotilpasningen til at slå igennem på alle arkene. Kan jeg gøre det i een arbejdsgag, eller SKAL jeg ind i hvert enkelt ark?
Avatar billede store-morten Ekspert
21. juli 2013 - 22:24 #12
"SKAL jeg ind i hvert enkelt ark?"
Ja.

Hvor mange ark har du?

Ude til højre kan du dobbelt klikke på de enkelte ark.
(Med koden i udklips holder) Tryk ctrl+v

Dobbelt klik på næste ark.
Tryk ctrl+v

Dobbelt klik på næste ark.
Tryk ctrl+v

Dobbelt klik på næste ark.
Tryk ctrl+v

....osv
Avatar billede JERIS Nybegynder
04. august 2013 - 01:14 #13
Tak store-morten
Skriver du som svar, så jeg kan give dig point?

Mvh.
Avatar billede store-morten Ekspert
04. august 2013 - 01:22 #14
Ok, du får et svar og velbekomme.
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

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