Gruppe
Format
Bereich
Spalte
Thema
Spaltenbreite anpassen
Problem
Wie kann ich die Spaltenbreite nach dem Zellwert einstellen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub FitColumns()
Dim intCounter As Integer
For intCounter = 1 To 3
Columns(intCounter).ColumnWidth = _
Cells(1, intCounter).Value
Next intCounter
End Sub