{"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":30,"n_cols":10,"rows_kept":30,"cut":false,"hidden":false,"merged":[]}
[]
[null,null,null,null,null,null,null,null,null,"'Herber: Case 25.03.2025 16:07:04"]
["Klick",null,null,null,null,"Bei Klick auf einen OptionButton,",null,null,null,"Private mobjOptionButtonClass(1 To 6) As clsOptionButton"]
[null,null,null,null,null,"wird ein Rahmen um den",null,null,null,"Private mstrSearchValue As String"]
[null,null,null,null,null,"OptionsButton gemacht."]
[null,null,null,null,null,"Bei Klick auf anderen OptionButton",null,null,null,"Herber: Case 25.03.2025 16:07:04"]
[null,null,null,null,null,"wird der Rahmen des vorherigen",null,null,null,"Private Sub UserForm_Activate()"]
[null,null,null,null,null,"OptionButton wieder entfernt. Das funktioniert!",null,null,null,"    Dim ialngIndex As Long"]
[null,null,null,null,null,null,null,null,null,"    For ialngIndex = LBound(mobjOptionButtonClass) To UBound(mobjOptionButtonClass)"]
[null,null,null,null,null,"Suche eine Möglichkeit, dass der",null,null,null,"        Set mobjOptionButtonClass(ialngIndex) = New clsOptionButton"]
[null,null,null,null,null,"Rahmen um den OptionButton da ist,",null,null,null,"        Set mobjOptionButtonClass(ialngIndex).OptionButton = Controls(\"OptionButton\" & CStr(ialngIndex))"]
[null,null,null,null,null,"aber der gepunkteten Rahmen, der sich um",null,null,null,"        Set mobjOptionButtonClass(ialngIndex).UserForm = Me"]
[null,null,null,null,null,"Caption bildet, entfernt wird.",null,null,null,"    Next"]
[null,null,null,null,null,"Dieser Code macht das. Es soll aber der ",null,null,null,"    'OptionButton1.Value = True"]
[null,null,null,null,null,"Rahmen um den OptionButton",null,null,null,"End Sub"]
[null,null,null,null,null,"bleiben."]
[null,null,null,null,null,"Das bedeutet. Rahmen um OptButton",null,null,null,"'Herber: Case 25.03.2025 16:07:04"]
[null,null,null,null,null,"ist da und der Punkterahmen um Caption",null,null,null,"Private Sub UserForm_Terminate()"]
[null,null,null,null,null,"ist weg.",null,null,null,"    Dim ialngIndex As Long"]
[null,null,null,null,null,"Public Sub CommandButton2_Click()",null,null,null,"    For ialngIndex = LBound(mobjOptionButtonClass) To UBound(mobjOptionButtonClass)"]
[null,null,null,null,null,"'Rahmen_loeschen",null,null,null,"        Set mobjOptionButtonClass(ialngIndex) = Nothing"]
[null,null,null,null,null,"    Dim lblLabel As MSForms.Label",null,null,null,"    Next"]
[null,null,null,null,null,"    Dim ctrlTMP As Control",null,null,null,"End Sub"]
[null,null,null,null,null,"    Dim lngTMP As Long"]
[null,null,null,null,null,"    For Each ctrlTMP In Me.Controls",null,null,null,"'Herber: Case 25.03.2025 16:07:04"]
[null,null,null,null,null,"        If TypeName(ctrlTMP) = \"Label\" Then",null,null,null,"Public Property Let SearchValue(ByVal pvstrSearchValue As String)"]
[null,null,null,null,null,"            Me.Controls.Remove ctrlTMP.Name",null,null,null,"    mstrSearchValue = pvstrSearchValue"]
[null,null,null,null,null,"        End If",null,null,null,"End Property"]
[null,null,null,null,null,"    Next ctrlTMP"]
[null,null,null,null,null,"End Sub"]