If o Is System.DBNull.Value Then
                backBrush = Brushes.Yellow
            Else
                Select Case o
                    Case CType(o, Boolean)
                        If _type Then
                            ' Die Spalte „bezahlt“ soll hellgrün markiert sein 
                            ' wenn bezahlt gecheckt ist.
                            backBrush = Brushes.LightBlue
                        Else
                            ' Die Spalte „nicht bezahlt“ soll hellrot markiert 
                            ' sein wenn nicht bezahlt gecheckt ist.
                            backBrush = Brushes.LightCoral
                        End If
                    Case CType(o, String)
                        Dim c As String = CType(o, String).ToString()
                        If c = "Männlich" Then
                            'tu was 
                        Else
                            c = "Weiblich"
                            'tu wieder was 
                        End If
                    Case Else
                        'tu nüschts
                End Select
                'If CType(o, Boolean) Then
                'If _type Then
                ' Die Spalte „bezahlt“ soll hellgrün markiert sein wenn bezahlt 
                ' gecheckt ist.
                'backBrush = Brushes.LightBlue
                'Else
                ' Die Spalte „nicht bezahlt“ soll hellrot markiert sein wenn 
                ' nicht bezahlt gecheckt ist.
                'backBrush = Brushes.LightCoral
                'End If
                'Else
                'backBrush = Brushes.White
            End If