Private Sub DGV_Details_CellFormatting(sender As Object, e As _
   DataGridViewCellFormattingEventArgs) Handles DGV_Details.CellFormatting
        If e.RowIndex = (-1) Then Return
        If e.Value Is DBNull.Value Then Return
        If e.Value Is Nothing Then Return
 
        If Me.DGV_Details.Columns(e.ColumnIndex).Name = "colBetrag" Then
            If e.Value IsNot Nothing Then
                Dim Betrag As Double = e.Value
                ' MsgBox(dgvdate)
                If Betrag <= 0 Then
                    e.CellStyle.ForeColor = System.Drawing.Color.Red
                Else
                    e.CellStyle.ForeColor = System.Drawing.Color.ForestGreen
                End If
            End If
        End If
    End Sub

  '----------------------------------------------------------------
  'negative Werte in Spalte 7, Schriftfarbe rot drucken   
  'positive Werte in Spalte 7 Schriftfarbe grün drucken   
  'die restlichen Spalten 0-6 Schriftfarbe schwarz drucken  drucken    
  '----------------------------------------------------------------
                If DruckSpalte <> 7 Then
                    e.Graphics.DrawString(ZellInhalt, DGV_Font, Brushes.Black, _
                      Schreibbox, sf)
                ElseIf DruckSpalte = 7 Then
 
                    If ZellInhalt < 1 Then
                        e.Graphics.DrawString(ZellInhalt, negativFont, _
                          Brushes.Red, Schreibbox, sf)
                    Else
                        e.Graphics.DrawString(ZellInhalt, positivFont, _
                          Brushes.Green, Schreibbox, sf)
                    End If
 
                End If
 
 
                PosX += SpaltenBreiten(DruckSpalte)
                DruckSpalte += 1
 
            Loop Until (DruckSpalte > dgv_MaxSpaltenIndex)