automatisch kolombreedte aanpassen

[esmp3]

Hallo,

Ik heb een vraag?

Ik probeer via excel de kolombreedtes aan te passen door het gehele werkblad te selecteren daarna naar opmaak en automatisch kolombreedte aanpassen te klikken.
Maar als ik dan iets invoer past hij deze niet automatisch aan.
Hoe kan ik dit oplossen?

MvG
esmp3

 

[SjonR]

zo?

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

 

[esmp3]

Hallo sjonr

Ik heb hier geen kaas van gegeten en zou dus niet weten hoe ik dit in mijn werkblad geplaatst krijg.

 

[edmoor]

Dat zal inderdaad via een stukje VBA moeten.
Plaats eens een voorbeeld van wat je wilt, dan kan het precies aangegeven worden.

 

[esmp3]

Hallo,

Ik heb het bestandje er nu bij gezet waar het om gaat.

Als ik dus een te lange tekst in type past hij het niet automatisch aan.
Ook niet als ik dus het werkblad selecteer en naar opmaak automatisch aanpassen kolombreedte ga .
Dat heb ik dus bij alle werkbladen .

mvg
esmp3

 

[edmoor]

Wat SjonR al zei dus, maar dan iets preciezer.
Zet dit in de event sectie van je werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A:H").Columns.AutoFit
End Sub

Dat kan je doen als volgt.
Druk op de toetscombinatie ALT-F11 om de VBA Editor te openen.
Dubbelklik dan aan de linkerkant op de naam van je werkblad en plak de code in de codesectie aan de rechterkant.

Sla je document vervolgens op als document met macro's (.xlsm)

 

[SjonR]

Een betere uitleg kan een mens toch niet wensen! :thumb:

 

[esmp3]

sorry hoor.

Maar ik krijg het niet voor elkaar.
volgens mij doe ik toch iets fout.

Ik open mijn weekblad planning.
Dan ctrl - alt f11
Dan dubbel klik ik op blad1
Dan kopieer ik wat er in het rechthoekje staat in het witte vlak rechts .
Dan klik ik op opslaan.
dan krijg ik een melding ja zonder macro's opslaan en nee met macro's opslaan en maak een keuze.
Ik klik dan op nee en maak keuze opslaan met excel werkmap opslaan met macro's.
zo doe ik het toch goed?

als ik dan deze opnieuw open en ik type iets wat langer is dan doet hij niets.

 

[edmoor]

Je moet daar dus een naam opgeven en kiezen voor opslaan als bestand met macro's.
Daarna moet je dan uiteraard wel het nieuw opgeslagen bestand (.xlsm) gebruiken en niet meer de oude (.xlsx).

Zo dus:
Bekijk bijlage Kopie van weekblad planning-1.xlsm

 

[esmp3]

dank jullie wel.

Ik had idd het verkeerde bestandje die ik opende.
Het is gelukt.
Kan ik deze code nu ook gebruiken voor andere bestandjes waar de breedte aangepast moet worden?

 

[edmoor]

Jazeker.