Private Sub sevGrid2_EditComboClick(ByVal ListIndex As Long, ByVal sText As _
  String)
    With Me.sevGrid2
        If .Col = 3 Then
            If ListIndex > 0 Then
                .Text(.Row, 6) = FormatCurrency(CDbl(fncHolBeitragGrid( _
                  ListIndex)), 2)
                .Text(.Row, 9) = ListIndex
                prcRechneRestBeitragGrid .Row
            End If
        End If
    End With
End Sub
 
Private Sub sevGrid2_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
    With Me.sevGrid2
        If .Columns(nCol).Key = "Sparte" Then
            With oComboBox
                .ColumnAdd "Nr", "Nr", 250, ALIGNMENT_LEFT
                .ColumnAdd "Sparte", "Sparte", 4000, ALIGNMENT_LEFT
                .AddItem "0" & vbTab & ""
                .AddItem "1" & vbTab & "GV -komplett(F / ST / H / WEL / LW"
                .AddItem "2" & vbTab & "GV -F / ST / H, wEL"
                .AddItem "3" & vbTab & "Inventar komplett"
                .AddItem "4" & vbTab & "GV -Feuer"
                .AddItem "5" & vbTab & "GV -ST / H / wEL"
                .AddItem "6" & vbTab & "GV -Leitungswasser"
                .AddItem "7" & vbTab & "Inv -Feuer"
                .AddItem "8" & vbTab & "Inv -Sturm / Hagel"
                .AddItem "9" & vbTab & "Inv -WEL"
                .AddItem "10" & vbTab & "Inv -Leitungswasser"
                .AddItem "11" & vbTab & "Inv -ED"
                .AddItem "12" & vbTab & "Inv -FBU"
                .AddItem "13" & vbTab & "Haftpflicht"
                .ListRowsMax = 14
                .DropDown = True
                .DisplayColumn = 2
                .ColVisible(1) = False
 
            End With
        End If
    End With
End Sub

_________
liabr vom Essa an Ranza als vom Schaffa an Buckel