...
                For i = 1 To .Cols
                  .DoColumnAutoSize i
                  With .Columns(i)
                    .MinWidth = TextWidth(.Caption) * 1.2
                    SpalGesBreite = SpalGesBreite + .Width
                    .HeadAlign = ALIGNMENT_CENTER
                    .Align = ALIGNMENT_CENTER
                    .FilterAlign = ALIGNMENT_CENTER
                    If .DataType = dtNumeric Then .DisplayFormat = "0.00"
                  End With
                Next i
 
                ' Spalten auf Tabellenbreite anpassen
                DiffWidth = (.Width - SpalGesBreite) / .Cols
                For i = 1 To .Cols
                  With .Columns(i)
                    .Width = .Width + DiffWidth - (.Cols * 4)
                  End With
                Next i
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de