Kolombreedte met VBA

[flbos]

Met onderstaande code pas ik de kolombreedte aan. Ik wil deze echter meerdere kolommen in een keer aanpassen zonder onderstaande code twintig keer te herhalen en steeds de letter te veranderen. Ik weet de juiste syntaxis niet: ("A", "B", "C") werkt niet

With Worksheets("werkblad").Columns("A")
.ColumnWidth = 45
End With

 

[Marrosi]

Hoi flbos,

Ik zou dat zo oplossen:

Columns("A:C").Select
Selection.ColumnWidth = 45

Ik hoop dat dit je kan helpen maar ik heb de indruk dat mijn antwoord te eenvoudig is om goed te kunnen zijn!

Groetjes,

Marrosi

 

[flbos]

Jouw antwoord is helemaal niet te eenvoudig, ik kon het in de help niet vinden en ben je er dan ook dankbaar voor. Werkt prima

 

[LucHeyndrickx]

Mag het nog eenvoudiger?

Columns("A:C").ColumnWidth = 45


Luc

 

[fra]

En om een willekeurig aantal kolommen op een willekeurige plaats aan te passen: selecteer de gewenste kolom(men) en voer dan deze macro uit:

Sub kolombreedte45()
Selection.ColumnWidth = 45
End Sub

fra.