Mittels folgendem Code:
Private Sub ListBox3_Click()
With frmSuchen
.TextBox17.Value = .ListBox3.Column(0, .ListBox3.ListIndex)
.TextBox18.Value = .ListBox3.Column(1, .ListBox3.ListIndex)
.TextBox19.Value = .ListBox3.Column(2, .ListBox3.ListIndex)
.TextBox20.Value = .ListBox3.Column(3, .ListBox3.ListIndex)
.TextBox21.Value = .ListBox3.Column(4, .ListBox3.ListIndex)
.TextBox22.Value = .ListBox3.Column(5, .ListBox3.ListIndex)
End With
End Sub
lasse ich einen im Listenfeld ausgewählten Eintrag wieder in die TextBoxen schreiben. Wenn ich nun die MultiSelect Eigenschaft verändere, lässt sich der Eintrag nicht mehr in die Textfelder schreiben. Wie muss ich debn Code abändern, wer weiß Rat? Danke!!!Gruß Frank H.!!!