'Meine Initialisierungsroutine:
 
    Dim iIdx As Integer
    Dim lngColWidth As Long
    Dim sData As String
    Dim sLine As String
    Dim oItem As sevDataGrid2.ListItem
 
  With sevParameterGrid
    ' autom. Neuzeichnen ausschalten
    .LockUpdate True
    .DataMode = Mode_List
 
    ' Spalten hinzufügen
     lngColWidth = 0&
     For iIdx = 0 To 20
       sData = f_sLoadResStringDLL(3300 + iIdx)
 
       If (iIdx = 0) Or (Me.TextWidth(sData) * 1.2 > lngColWidth) Then
          lngColWidth = Me.TextWidth(sData) * 1.2
       End If
     Next iIdx
 
     .ColumnAdd "PARAMNAME", "Parameter", lngColWidth
     .ColumnAdd "ValCH01", "Kanal-1", Me.TextWidth("Kanal-1") * 1.7
     .ColumnAdd "ValCH02", "Kanal-2", Me.TextWidth("Kanal-2") * 1.7
     .ColumnAdd "ValCH03", "Kanal-3", Me.TextWidth("Kanal-3") * 1.7
     .ColumnAdd "ValCH04", "Kanal-4", Me.TextWidth("Kanal-4") * 1.7
     .Columns("ValCH01").InputType = INPUT_CURRENCY                  '=> als Test
     .Columns("ValCH02").InputType = INPUT_NUMERIC
     .Columns("ValCH03").InputType = INPUT_NUMERIC
     .Columns("ValCH04").InputType = INPUT_NUMERIC
      '
     'autom. Sortierung deaktivieren
     .AutoSort = False
     .ShowSortSymbols = False
 
     ' interaktives Hinzufügen und Ändern ermöglichen
     .AllowEdit = True
 
     ' interaktives Löschen ermöglichen
     .AllowMultiSelect = False
     .AllowDelete = False
     ' interaktives Ändern der Spaltenbreiten zulassen
     .AllowColumnSizing = True
 
     ' feststehende Spalte einblenden
     .FixedColWidth = 700
     .FixedCol = True
     .FixedColumns(1).SortType = SORT_NUMERIC
 
     For iIdx = 0 To 20
       sData = f_sLoadResStringDLL(3300 + iIdx)
 
       sLine = sData & vbTab & "0" & vbTab & "0" & vbTab & "0" & vbTab & "0"
 
       If sLine <> "" Then
         Set oItem = .AddItem(sLine, , CStr(.Rows + 1))
      End If
    Next iIdx
 
    ' autom. Neuzeichnen einschalten
    .LockUpdate False
    .Refresh
 
    ' 1. Zeile selektieren
    .Row = 1
    .Refresh
  End With

Tschaui
Woellmi