With frmKIS.sevGrid1
                'LISTMODUS
    .DataMode = Mode_List
    .LockUpdate True
    .AddNew
        'Interaktives Hinzufügen und Ändern ermöglichen
    .AllowEdit = True
         'Interaktives Löschen ermöglichen
    .AllowMultiSelect = True
    .AllowDelete = True
    .AllowAutoColumnSizing = True
    .ScrollBars = SB_AUTO
    Text = clsKIS.Tabellen_Bezeichnung_KiTexte("notizen")
    If Text <> "" Then
        .ColumnAdd "text", Text, 1800, ALIGNMENT_LEFT
        .ColumnAdd "datum", "Datum", 900
        .ColumnAdd "kurz", "Kürzel", 700
    End If
             ' Erweiterte Spalten-Eigenschaften
        .Columns("datum").InputType = INPUT_DATE
        .Columns("datum").SortType = SORT_DATE
     For i = 0 To UBound(benKiTexte)
        '.AddNew "kitexte"
        .AddItem (benKiTexte(i).kit_text & vbTab & benKiTexte(i).kit_datum & _
          vbTab & benKiTexte(i).kit_info_von)
 
    Next
 
    .LockUpdate False
    .Refresh
End With