Private Sub ReminderDataGridView_CellFormatting(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
      Handles ReminderDataGridView.CellFormatting
        If e.ColumnIndex = 2 AndAlso e.Value IsNot Nothing AndAlso e.Value _
        IsNot DBNull.Value AndAlso e.Value.GetType() Is GetType(DateTime) Then
            Dim dt As DateTime = e.Value
            If dt.Month = 1 And dt.Day = 1 Then
                e.Value = "Neujahr"
            Else
                e.Value = dt.ToString(e.CellStyle.Format)
            End If
            e.FormattingApplied = True
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist