VBA voor Kolom breedte

[Developer]

Goede morgen allemaal,

Wie kan mij helpen aan een VBA om kolombreedtes aan te passen ?

Alvast bedankt
Developer

 

[snb]

1 kolombreedte, 2 kolombreedtes, alle kolombreedtes ?

Wat is een VBA ?

 

[Roncancio]

Sub KolomBreedte()
Range("A:B").ColumnWidth = 15
End Sub

Met vriendelijke groet,


Roncancio

 

[Excellerend]

Middels Inputboxen een kolom en breedte opgeven.

Sub KolomBreedte()
On Error Resume Next
x = InputBox("Van welke kolom moet de breedte aangepast worden?")
y = InputBox("Welke breedte moet de kolom krijgen?")
If Err > 0 Then Exit Sub
    Columns(x & ":" & x).ColumnWidth = y
End Sub

Grt Peter

(aan snb de eer dit efficiënter te doen )

 

[snb]

Eerst de breedte, dan de kolommen:

Sub M_snb()
    Application.InputBox("Kies de kolom(men)", "Kan dat niet slimmer ?", , , , , , 8).ColumnWidth = InputBox("Welke breedte", "Kan dat niet slimmer ?")
End Sub

 

[Excellerend]

:d




:thumb: