{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Tabelle1"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Tabelle1","index":0,"n_rows":26,"n_cols":6,"rows_kept":26,"cut":false,"hidden":false,"merged":[]}
[]
[null,null,null,null,null,"Suche folgende Code Möglichkeit:"]
["Klick",null,null,null,null,"Bei Klick auf einen OptionButton,"]
[null,null,null,null,null,"soll nur dieser einen Rahmen bekommen."]
[null,null,null,null,null,"Wenn dieser Button wieder deaktiviert ist,"]
[null,null,null,null,null,"soll der Rahmen wieder weg sein."]
[]
[]
[]
[null,null,null,null,null,"Code u.a. unter UserForm1:"]
[null,null,null,null,null,"'Nur bestimmten OptionButton einen Rahmen setzen"]
[null,null,null,null,null,"Public Sub CommandButton3_Click()"]
[null,null,null,null,null,"Dim i&, objFrame As Control, arrOpt(): arrOpt = Array(OptionButton2, OptionButton6)"]
[null,null,null,null,null,"    For i = LBound(arrOpt) To UBound(arrOpt)"]
[null,null,null,null,null,"        Set objFrame = Controls.Add(\"Forms.Label.1\", \"Rahmen\" & i + 1, True)"]
[null,null,null,null,null,"        With objFrame"]
[null,null,null,null,null,"            .Left = arrOpt(i).Left - 2"]
[null,null,null,null,null,"            .Width = arrOpt(i).Width + 2"]
[null,null,null,null,null,"            .Top = arrOpt(i).Top"]
[null,null,null,null,null,"            .Height = arrOpt(i).Height"]
[null,null,null,null,null,"            .BackStyle = 0"]
[null,null,null,null,null,"            .BorderStyle = 1"]
[null,null,null,null,null,"            .ZOrder 0"]
[null,null,null,null,null,"        End With"]
[null,null,null,null,null,"    Next"]
[null,null,null,null,null,"End Sub"]