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