Avatar billede anedi Ekspert
01. september 2011 - 17:01 Der er 5 kommentarer og
1 løsning

Autojuster cellehøjde ved opstart

Kære Eksperter

Er der nogen der kan hjælpe mig med en makro, der kan sørge for at højden på mine celler i et ark bliver autojusteret ved opstart?

Jeg har et oversigtsark der samler oplysninger fra en række andre ark. Arket opdateres af en række personer, og hvis der siden sidste åbning har været andre inde og indtaste oplysninger, er det ikke altid de er til at se i mit oversigtsark.

Jeg ved godt at hele arket kan markeres og at man derefter kan klikke mellem rækkerne, for at justere højden. Jeg kunne dog godt tænke mig at det skete automatisk.

Mvh
Anedi
Avatar billede store-morten Ekspert
01. september 2011 - 17:32 #1
Prøv:

ThisWorkbook:

Private Sub Workbook_Activate()
Rows("1:100").AutoFit
End Sub
Avatar billede KurtOA Praktikant
02. september 2011 - 13:27 #2
Hvis du gerne vil klare det uden VBA kan du fx gøre følgende:

Klik et tilfældigt sted i arket
Ctrl + A (markerer hele arket)
Vælg nu Formater > Række > Autotilpas

Denne rutine kan du evt indspille som makro så du let kan køre den når du har behov for det.

mvh Kurt
Avatar billede store-morten Ekspert
02. september 2011 - 22:48 #3
#2 KurtOA
Hvorfor lægger du et 'Svar'?
Har du læst ønsket?  "Er der nogen der kan hjælpe mig med en makro?"
Og:
"Jeg ved godt at hele arket kan markeres og at man derefter kan klikke mellem rækkerne, for at justere højden. Jeg kunne dog godt tænke mig at det skete automatisk."

Som Makro: Indsæt i et modul. Makronavn: AutoFit
Sub AutoFit()
Rows.AutoFit
End Sub

Automatisk ved åbning af ark. Indsæt i ThisWorkbook (Denne_projektmappe)
Private Sub Workbook_Activate()
Rows.AutoFit
End Sub

Automatisk ved ændring i ark1. Indsæt i Ark1
Private Sub Worksheet_Change(ByVal Target As Range)
Rows.AutoFit
End Sub

Automatisk ved ændring i alle ark. Indsæt i ThisWorkbook (Denne_projektmappe)
Private Sub Worksheet_Change(ByVal Target As Range)
Rows.AutoFit
End Sub
Avatar billede KurtOA Praktikant
03. september 2011 - 15:06 #4
Til Storemorten:
Sorry hvis jeg brude have skrevet en kommentar,  men...
Jo jeg HAR skam læst ønsket: "Er der nogen der kan hjælpe mig med en makro..." hviklket er netop hvad jeg har gjort.
Istedet for "blot" at lægge en stump kode (som spørgeren måske IKKE er med) på giver jeg et forslag til løsning ved at indspille en makro - som er netop det ord som spørgeren selv bruger. Havde han/hun skrevet KODEstump havde jeg givet forslaget at lægge følgende stump i arkets modul:

Private Sub Workbook_Activate()
Rows.AutoFit
End Sub

mvh Kurt
Avatar billede anedi Ekspert
05. september 2011 - 17:30 #5
Kære Begge
tak for hurtige og brugbare svar. Jeg har benyttet Storemortens forslag, så læg venligst et svar, så er der point på vej.
Avatar billede store-morten Ekspert
05. september 2011 - 19:43 #6
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
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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