Hallo,
ich habe ein gewöhnliche Eingabemaske programmiert. Wenn ich auf die Einträge in meiner ListBox Klicke werden alle Einträge wie eingetragen wieder angezeigt. Nur bei den Optionbuttons gibt es noch ein Problem:
If ListBox1.ListIndex >= 0 Then
lZeile = 202
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
If Tabelle1.Cells(lZeile, 22).Text = "yes" Then
OptionButton1 = True
OptionButton6 = False
Else
OptionButton1 = False
OptionButton6 = True
End If
If Tabelle1.Cells(lZeile, 25).Text = "yes" Then
OptionButton5 = True
OptionButton4 = False
Else
OptionButton5 = False
OptionButton4 = True
End If
If Tabelle1.Cells(lZeile, 27).Text = "yes" Then
OptionButton3 = True
OptionButton2 = False
Else
OptionButton3 = False
OptionButton2 = True
End If
If Tabelle1.Cells(lZeile, 30).Text = "yes" Then
OptionButton9 = True
OptionButton10 = False
Else
OptionButton9 = False
OptionButton10 = True
End If
If Tabelle1.Cells(lZeile, 33).Text = "yes" Then
OptionButton7 = True
OptionButton8 = False
Else
OptionButton7 = False
OptionButton8 = True
End If
Exit Do
End If
lZeile = lZeile + 1
Loop
End If
Mit diesem Code verhält sich die UserForm wie folgt:
Die Übertragung der Optionbutton Auswahlen funktioniert beim Ersten mal nicht. Sie werden erst dann in die Matrix übernommen, wenn der Eintrag erneut aufgerufen wird und die OptionButton Auswahl erneut eingegeben und übertragen wird. Nachdem die OptionButton Auswahl somit zwei mal "gespeichert" wurde funktioniert alles:
Das Kuriose: Wenn ich den oben genannten Code deaktiviere funktioniert die Auswahlübertragung in die Matrix schon beim ersten "speichern". Also liegt es demnach an dem genannten Code.
Vielen Dank für Hilfen!
|