If Grid1.Columns(nCol).ColType = TYPE_CHECKBOX Then                ' Prüfen 
    ' auf Checkbox
        Select Case True
        Case Grid1.Text(nRow, nCol) = True
            Grid1.Columns(nCol).filter = "Ja"
        Case Else
            Grid1.Columns(nCol).filter = "Nein"
        End Select
    End If
 
    With Grid1
    If nCol <> .GetCol("Serienbriefmanagement") Then
        With Grid1.Columns(nCol)
            .filter = Grid1.Text(nRow, nCol)
            .FilterShowDisabled = False
            .FilterBold = True
            SetFilter
        End With
    End If
    End With