With sevGrid2.Columns(nCol)
            If Len(sText) > 0 Then
               If .DataType = dtDate Then
                  If Not IsDate(sText) Then
                     Msg.MsgBox "Ungültige Datumsangabe!", vbCritical + vbOKOnly
                     Cancel = 1
                     Exit Sub
                   End If
                End If
             End If
        End With