Zirkelbezug in VBA abstellen
30.04.2005 18:50:05
Vliegen
In VBA kann man selber Zirkelbezüge produzieren mit Code in der Art wie unten dargestellt. Wie kann ich jetzt so einen Code umschreiben damit es nicht zum Zirkelbezug kommt. Kann ich einmal das Change-Ereignis der anderen Textbox unterdrücken damit die sich nicht gegenseitig hochschaukeln ?
Private Sub TextBox1_Change()
With Me
If TextBox1.Value <> "" And TextBox2.Value <> "" Then _
.TextBox2.Value = CDbl(.TextBox1.Text) + CDbl(.TextBox2.Text)
End With
End Sub
Private Sub TextBox2_Change()
With Me
If TextBox1.Value <> "" And TextBox2.Value <> "" Then _
.TextBox1.Value = CDbl(.TextBox1.Text) + CDbl(.TextBox2.Text)
End With
End Sub
Danke für Tipps.
Gruss,
Francois