Grid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal sText As _
     String)
    ' Prüfen ob aw_date nicht länger als 3 Tage zurückliegt.
    If nCol = Grid1.GetCol("aw_date") = Date - 4 Then
    MsgBox "Das AW-Buchungsdatum kann max. 3 Tage zurückliegen"
    Grid1.GetCol("aw_date") = Format(Now, "dd.mm.yy")
    End If