Hallo,
In Userform1 sollen Einträge aus (UF2) von 3 verschiedenen Listboxen in die 7 Textboxen der UF1 eingelesen werden. Das funktioniert auch.
Wenn ich jetzt nochmals die UF2 aufrufe sollen die Listboxen entsprechend der
Textboxen markiert werden.
Das passiert jedoch nicht.
In txtBox werden die Textboxen 1 bis 7 aus UF1 eingelesen.
If Trim$(txtBox.Text) "" Then
vText = Split(txtBox.Text, ", ") - 1
End If
For Lsp = 1 To 3
For Lol = 0 To UBound(Split(txtBox, ", ")) - 1
Controls("ListBox" & Lsp).Selected(vText(Lol)) = True
Next Lol
Next Lsp
Danke!
Gruß, Ludmila
https://www.herber.de/bbs/user/120099.xlsm