Schleife
24.05.2009 12:06:37
Nico
Ich habe in einem Userform 30 Textfelder welche Betrag1 ... Betrag30 benannt wurden. Mit jedem AfterUpdate dieser Felder muss eine Aktion ausgeführt werden, welche wie folgt aussieht:
Sub rechne_check_bonSumme()
Dim error As Integer
Dim a1, a2, a3, a4, a5 As Double
If IsNumeric(betrag1.Value) Then
a1 = betrag1
Else
If betrag1.Value = "" Then
a1 = 0
Else
error = 1
End If
End If
If IsNumeric(betrag2.Value) Then
a2 = betrag2
Else
If betrag2.Value = "" Then
a2 = 0
Else
error = 1
End If
End If
If IsNumeric(betrag3.Value) Then
a3 = betrag3
Else
If betrag3.Value = "" Then
a3 = 0
Else
error = 1
End If
End If
If error = 0 Then
check_bonSumme.Caption = CDbl(bonsumme.Value * -1) + CDbl(a1) + CDbl(a2) + CDbl(a3)
Else
MsgBox ("In den Feldern für Betrag dürfen nur Zahlen eingegeben werden!")
End If
End Sub
Ziel soll sein die Summe aller 30 Felder zu ermitteln und das bei jedem AfterUpdate dieser Felder.
Wie kann ich die Routinen der einzelnen Textfelder "if isnumeric ..." in eine Schleife packen, um nicht 30mal die Routine schreiben zu müssen?
Vielen Dank für Eure Hilfe!