Hallo da draußen,
ich habe mit Folkers Hilfe folgendes Makro erzeugt und in ein normales Modul gesetzt:
Sub schwarz()
Dim i As Integer
For i = 1 To 5 < OLEObjects.Count
ActiveSheet.OLEObjects("CommandButton" & i).Object.ForeColor = "&H800000112&"
Next
End Sub
das Teil soll bei einer Reihe von Befehlsschaltflächen die ich mit der Steuerelement Toolbox erzeugt habe, die Farbe der Beschriftung (Caption) auf schwarz setzen. Nur das aktive wird per weiterem Befehl auf rot gesetzt.
Den Namen der Schaltflächen habe ich in den Eigenschaften auf Ring_001 bis Ring_005 geändert.
Beim Aufruf erhalte ich die Meldung: Laufzeitfehler 424 Objekt erforderlich.
Setze ich das Makro als Private Sub ins aktuelle Tabellenblatt,
unterbleibt diese Meldung, aber es läuft nur bis Zeile "For i..
und übrspringt dann die Zeile "ActiveSheet..." nach End Sub
und es passiert garnichts.
wo ist mein Fehler?
Wilhelm