Private Sub txtWert_Change(Index As Integer)
Dim i As Integer
Dim cGesWert As Currency
 
cGesWert = 0
 
For i = 0 To 15
 txtWert2(i).Value = NZ(txtLbl(i).Value, 0) * NZ(txtWert(i).Value, 0)
 cGesWert = cGesWert + NZ(txtWert2(i).Value, 0)
 txtGesWert.Value = cGesWert
Next i
 
txtDiff.Text = (txtGesWert.Text - txtGesWertIst.Value)
 
If txtDiff.Text < 0 Then
    txtDiff.ForeColorDisabled = &HC0&
Else
    txtDiff.ForeColorDisabled = &H8000&
End If
End Sub

bis später
Tomy