Ich habe in einem Sheet über 700 TextBoxes, bei denen ich je nach Abfrage die Font-Farbe wechsle.
Vor jeder Abfrage will ich alle Text-Boxes wieder auf die Grundfarbe schwarz stellen. Zur Zeilt löse ich das wie folgt:
For Each TB In ActiveSheet.TextBoxes
TB.Font.ColorIndex = 1
Next
Dies dauert aber sehr (zu) lange. Ich versuchte es mit folgendem Code, klappt aber nicht:
ActiveSheet.TextBoxes.Select
Selection.Font.ColorIndex = 1
Wie könnte ich das schneller lösen=
Vielen Dank und Gruss
Gregor