Macro verkürzen
08.08.2007 15:36:00
Karsten
Ich habe in einem Macro folgende einträge:
Sub TextBox20_Change()
If CDbl(TextBox20) = 0 Then TextBox20.BackColor = &HFFFFFF
If CDbl(TextBox20) > 0 Then TextBox20.BackColor = &HFF00&
If CDbl(TextBox20) > Gelb Then TextBox20.BackColor = &HFFFF&
If CDbl(TextBox20) > Rot Then TextBox20.BackColor = &HFF&
End Sub
Sub TextBox21_Change()
If CDbl(TextBox21) = 0 Then TextBox21.BackColor = &HFFFFFF
If CDbl(TextBox21) > 0 Then TextBox21.BackColor = &HFF00&
If CDbl(TextBox21) > Gelb Then TextBox21.BackColor = &HFFFF&
If CDbl(TextBox21) > Rot Then TextBox21.BackColor = &HFF&
End Sub
Sub TextBox22_Change()
If CDbl(TextBox22) = 0 Then TextBox22.BackColor = &HFFFFFF
If CDbl(TextBox22) > 0 Then TextBox22.BackColor = &HFF00&
If CDbl(TextBox22) > Gelb Then TextBox22.BackColor = &HFFFF&
If CDbl(TextBox22) > Rot Then TextBox22.BackColor = &HFF&
End Sub
Sub TextBox23_Change()
If CDbl(TextBox23) = 0 Then TextBox23.BackColor = &HFFFFFF
If CDbl(TextBox23) > 0 Then TextBox23.BackColor = &HFF00&
If CDbl(TextBox23) > Gelb Then TextBox23.BackColor = &HFFFF&
If CDbl(TextBox23) > Rot Then TextBox23.BackColor = &HFF&
End Sub
Sub TextBox24_Change()
If CDbl(TextBox24) = 0 Then TextBox24.BackColor = &HFFFFFF
If CDbl(TextBox24) > 0 Then TextBox24.BackColor = &HFF00&
If CDbl(TextBox24) > Gelb Then TextBox24.BackColor = &HFFFF&
If CDbl(TextBox24) > Rot Then TextBox24.BackColor = &HFF&
End Sub
Sub TextBox25_Change()
If CDbl(TextBox25) = 0 Then TextBox25.BackColor = &HFFFFFF
If CDbl(TextBox25) > 0 Then TextBox25.BackColor = &HFF00&
If CDbl(TextBox25) > Gelb Then TextBox25.BackColor = &HFFFF&
If CDbl(TextBox25) > Rot Then TextBox25.BackColor = &HFF&
End Sub
Es passiert bei allen Textboxen das gleiche.
Wie kann ich das mit einem For Befehl abkürzen?
For a = 1 To 30
If CDbl(TextBox a) = 0 Then TextBox a.BackColor = &HFFFFFF
If CDbl(TextBox a) > 0 Then TextBox a.BackColor = &HFF00&
If CDbl(TextBox a) > Gelb Then TextBox a.BackColor = &HFFFF&
If CDbl(TextBox a) > Rot Then TextBox a.BackColor = &HFF&
Next a
So geht es leider nicht.
MfG
Karsten