Alle TextBox auf schwarz
Gregor
Mit folgendem Code stelle ich auf einem Blatt vor jeder neuen Auswertung bei ca. 1000 Shape den _
Grundstandard schwarz her
Sub TextShape()
Dim TB As Object
Application.ScreenUpdating = False
For Each TB In ActiveSheet.TextBoxes
If TB.Font.ColorIndex 1 Then
TB.Font.ColorIndex = 1
End If
Next
Application.ScreenUpdating = True
End SubDies dauert eine ganze Weile. Gibt es eine schnellere Möglichkeit?
Danke und Gruss
Gregor
Anzeige