Private Sub sevGrid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, Cancel As Integer)
Dim hoai As Long
  With sevGrid1
    If nCol = 5 Then
      sText = Format$(Val(Replace(sText, ",", ".")) / 100, "0.00")
 
      hoai = Val(.CellText(nRow, nCol - 1))
      If Val(sText) < 0 Or Val(sText) > hoai Then
          MsgBox "Bitte einen Wert zwischen 0 und den HOAI Höchstsatz eingeben!"
          Cancel = True
        End If
 
    End If
  End With
End Sub