habe folgendes Problem.
Ich möchte die Schriftfarbe auf allen Textboxen ändern, wenn der Wert kleiner 0 ist.
Jetzt dachte ich, ich kann folgenden Code ändern, damit dies für alle Boxen gültig ist, damit ich nicht ne If...Then oder Select Case Variante anwenden muß.
Dim tb as Object
For each tb in Userform1.Controls
If Typename(tb) = "Textbox" then tb.fontcolor = RGB (255, 40, 10)
next tb
Klappt aber nicht. Kann da jmd helfen?
Gruß Dennis