Hallo zusammen,

ich komme mal wieder nicht weiter.
In einer Userform ist eine Listbox mit 3 Spalten, die bei Aufruf der Userform mit Daten aus einer Tabelle gefüllt wird. Desweiteren 10 Textboxen die nach anklicken eines Datensatzes in der Listbox gefüllt werden und auch bearbeitet werden können.
Über 2 Radiobuttons kann ich den ausgewählten Datensatz mit ja oder nein markieren. Jetzt zu meinem Problem:
Gibt es eine Möglichkeit die Radiobuttons auch einzulesen, ich meine so wie die Textboxen mit Info gefüllt werden, möchte ich auch das die Radiobuttons so wie in der Tabelle gestzt sind angeklickt sind.

Der Code bis jetzt(funktioniert sogar)

Private Sub ListBox1_Click()
   Dim lZeile As Long
     'Wenn der Benutzer einen Namen anklickt, suchen wir
     'diesen in der Tabelle18 heraus und tragen die Daten
     'in die TextBoxen ein.
    
     'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
     TextBox1 = ""
     TextBox2 = ""
     TextBox3 = ""
     TextBox4 = ""
     TextBox5 = ""
     TextBox6 = ""
     TextBox7 = ""
     TextBox8 = ""
     TextBox9 = ""
     TextBox10 = ""
     OptionButton1.Value = False
     OptionButton2.Value = False
    
     'Nur wenn ein Eintrag selektiert/markiert ist
     If ListBox1.ListIndex >= 0 Then
    
         lZeile = 5 'Start in Zeile 5,
         'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
         Do While Trim(CStr(Tabelle18.Cells(lZeile, 6).Value)) <> ""
        
             'Wenn wir den Namen aus der ListBox1 in der Tabelle18 Spalte 5
             'gefunden haben, übertragen wir die anderen Spalteninhalte
             'in die TextBoxen!
             If ListBox1.Text = Trim(CStr(Tabelle18.Cells(lZeile, 6).Value)) Then
            
                 'TextBoxen füllen
                 TextBox7 = Trim(CStr(Tabelle18.Cells(lZeile, 6).Value))         
                 TextBox1 = Tabelle18.Cells(lZeile, 8).Value                     
                 TextBox2 = Tabelle18.Cells(lZeile, 9).Value                     
                 TextBox3 = Tabelle18.Cells(lZeile, 10).Value                    
                 TextBox4 = Tabelle18.Cells(lZeile, 11).Value                    
                 TextBox5 = Tabelle18.Cells(lZeile, 12).Value                    
                 TextBox6 = Tabelle18.Cells(lZeile, 13).Value                    
                 ComboBox1.Text = Tabelle18.Cells(lZeile, 5).Value               
                 TextBox8 = Tabelle18.Cells(lZeile, 18).Value                    
                 TextBox9 = Tabelle18.Cells(lZeile, 16).Value                     
                 TextBox10 = Tabelle18.Cells(lZeile, ).Value                         
                 Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
             End If
        
             lZeile = lZeile + 1 'Nächste Zeile bearbeiten
        
         Loop
        
     End If
     
End Sub

Hoffe es ist irgendwie möglich.
Danke
Gruß Martin