Public Sub Grid2_RowLoaded(ByVal nRow As Long, Item As Object)
  With Item
  ' Prüfen, welche Zahlungsart angezeigt wird
  If .CellText("BelegArt") = "Eingangsrechnung" Then
    ' Gesamte Schriftart rot einfärben
    .ForeColor = vbRed
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de