Hallo Leon,
ich gehe mal davon aus, dass du von einem Active-X Option-Button sprichst, der auf einem Tabellenblatt liegt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
OLEObjects("OptionButton1").Object.Caption = Target
End If
End Sub
.Der Code gehört ins Codemodul des Blattes, auf dem du die Zelle änderst und auf der sich auch der OptionButton befindet.
Rechtsklick auf den Tabellenlbattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Gruß Werner
|