Public Sub ColWidthProzent(Grid As sevDataGrid.Grid, _
                           ByVal ColWidthArray As Variant, _
                           nCol As Integer)
 
' Prüfung, ob Arrays übergeben wurden
  If Not IsArray(ColWidthArray) Then Exit Sub
 
  Dim MaxW%, n%, i%
  Dim ColW  As Long
 
' maximal verfügbare Breite berechnen
' und in der Variable MaxW speichern
 
  With Grid
' FixedCol?
     MaxW = .Width - 4 * Screen.TwipsPerPixelX
     If .FixedCol Then MaxW = MaxW - .FixedColWidth
 
' ScrollBar?
     If .ScrollBars <> SB_HORIZONTAL And .ScrollBars <> SB_NONE Then _
       MaxW = MaxW - GetSystemMetrics(SM_CXVSCROLL) * Screen.TwipsPerPixelX
 
' GridLines?
     n = 0
     For i = 1 To .Cols
       If .Columns(i).Visible Then
         MaxW = MaxW - (.CellSpacing * 2) * Screen.TwipsPerPixelX
       End If
     Next i
 
' Spaltenbreiten berechnen und einstellen
     ColW = 0
     For n = 1 To .Cols
       If ColWidthArray(n - 1) > 0 Then
         .Columns(n).Width = (MaxW * ColWidthArray(n - 1)) \ 100
          ColW = ColW + .Columns(n).Width
       Else
         .Columns(n).Visible = False
       End If
     Next n
 
' Spalte anpassen
     ColW = ColW - .Columns(nCol).Width
    .Columns(nCol).Width = MaxW - ColW
 
  End With
 
End Sub

Dim cWidth As Variant
cWidth = Array(30, 25, 25, 20, 0)
ColWidthProzent BaustelleDlg.Grid1, cWidth