Private Sub dg_wette_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, Cancel As Integer)
    If nCol = 8 Or nCol = 9 Or nCol = 10 Then
        sText = Format(sText, "######.00")
    End If
End Sub

Gru? aus Oberhausen, Salvatore

---

Man braucht nur mit Liebe einer Sache nachzugeben,
so gesellt sich das Gl?ck hinzu. (Johannes Trojan)