Hallo zusammen,
ich bin ein vba neuling u. bräuchte mal hilfe.
Ich habe in einer Userform 15 Textboxen, jeweils 5 (vortlaufende 1-5 ) TextBoxen sollen nach eingabe mit dem wert aus z.B. Zelle B2 bzw. C2 geprüft werden ob der wert größer oder kleiner ist. Die anderen Textboxen (6-10) sollen mit anderen Zellen geprüft werden z.B. B3 bzw C3
Wie ich jede einzelne TextBox prüfe hab ich so gelöst
Private Sub TextBox3_AfterUpdate()
If CDbl(TextBox3.Value) > Sheets("Messwerte").Range("B3") Or CDbl(TextBox3.Value) < Sheets("Messwerte").Range("C3") Then
UserForm1.TextBox3.ForeColor = RGB(255, 0, 0)
UserForm2.Show
Else
End If
End Sub
aber geht das auch in einer schleife, so das ich 5 TextBoxen gleichzeitig prüfen kann. Danke für eure Hilfe
gruß
neuling :-)
|