Sub subSetTooltip(ByVal Ident As Integer, ByVal FehlerText As String)
    For Each Zeile As DataGridViewRow In dgvDetails.Rows
      With Zeile.Cells(2)  ' Spalte 3 enthält die IdentNr
        If .Value <> Nothing Then
          If .Value = Ident Then
            Zeile.Cells(1).Value = True   ' CheckBox setzen, wenn Fehler 
            ' aufgetreten
            Zeile.Cells(1).ToolTipText = FehlerText  ' ToolTip setzen, 
            ' wenn Fehler aufgetreten
            Zeile.Cells(0).Value = False  ' CheckBox für die Auswahlkennung 
            ' zurücksetzen
            Fehler += 1   
          End If
        End If
      End With
    Next
    If Fehler > 0 Then
      dgvDetails.Columns("Fehler").Visible = True  ' Fehlerspalte wird sichtbar 
      ' gemacht
    End If