Optionsbutton belegen
14.11.2016 10:58:54
Martin
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