Draaitabel: Kolombreedte automatisch aanpassen bij doorkiezen

[PITOR]

Zie bijlage:
Bij het aanklikken van één van de getallen in de matrix opent er een nieuw blad (zoals in dit geval Blad1) met daarin de betrokken records weergegeven.
Ik wil dat de breedte van de kolommen meteen goed staat zodat men dat niet meer zelf hoeft te doen.

Ik weet dat het mogelijk is maar ik kan de manier om dat in te stellen niet vinden.

Wie weet raad?

Groet,
Pitor

 

[gast0660]

Hoi,
Geen flauw idee of het anders kan (zonder VBA) ben geen formule liefhebber, maar met deze code in This Workbook mischien?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Columns.AutoFit
End Sub

 

[edmoor]

Met als mogelijk nadeel dat het dan voor alle bladen geldt. Gebruik dan deze:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Columns.AutoFit
End Sub

Dan werkt het op alleen de door de drilldown actie nieuw aangemaakte sheet.

 

[PITOR]

Dat is VBA, toch? Ik heb nog nooit iets met VBA gedaan. Hoe krijg ik dat actief in mijn werkblad?

 

[gast0660]

Via de VBA editor (ALT + F11) In This Workbook de code van Edmoor of mij plakken (volgens uw wens)

 

[PITOR]

Het is me gelukt om het te laten werken. Duizend maal dank!!

 

[gast0660]

I love it when something works
Suc6 PITOR

 

[Peekhamer]

Met als mogelijk nadeel dat het dan voor alle bladen geldt. Gebruik dan deze:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Columns.AutoFit
End Sub

Dan werkt het op alleen de door de drilldown actie nieuw aangemaakte sheet.

Cool, thanx! Deze helpt mij ook!