Mit nachstehndem Code werden bei 40 Schaltflächen die Beschriftungen schwarz eingefärbt:
Sub schwarz()
Dim i As Integer
For i = 1 To 40 '< OLEObjects.Count
ActiveSheet.OLEObjects("CommandButton" & i).Object.ForeColor = RGB(0, 0, 0)
Next
End Sub
Ich brauche aber in den seltensten Fällen alle 40 Schalter.
Zur besseren Übersicht müsste ich die Überzähligen unsichtbar machen.
Frage wenn ich den Code in diesem Sinne anpasse, kann ich dann auch die 40 in "For i = 1 To 40 durch eine Varible ersetzen, die ich in "Tabelle1" "zelle i4" finde?
Komme nicht auf den Dreh.
Gruß Wilhelm