Userform: Focus zwischen Listboxen bewegen
Betrifft: Userform: Focus zwischen Listboxen bewegen
von: Michael Rapp
Geschrieben am: 11.08.2004 14:24:43
Hallo,
ich erbitte Hilfe bei der Gestaltung einer Userform.
Die Userform besteht aus 3 ListBoxen, welche unterschiedliche Objekte auflisten, die der Benutzer zuvor auf dem Arbeitsblatt platziert hat. Eine Listbox wird z.B. so gefüllt:
Sub Fill_ShapeList_Plan()
Dim i As Integer
Dim strSelector As String
'Plan
frm_ShapeTool.ShapeList_Plan.Clear
strSelector = "FS-"
For i = 1 To ActiveSheet.Shapes.Count
If Left(ActiveSheet.Shapes(i).Name, 3) = strSelector Then
frm_ShapeTool.ShapeList_Plan.AddItem ActiveSheet.Shapes(i).Name
End If
Next i
End Sub
Folgendes Problem tritt auf:
Wenn der Benutzer in der ersten ListBox ein Objekt wählt, ist alles ok. Wenn er danach in einer zweiten ListBox ein Objekt wählt, so wird zwar dieses Objekt aktiviert, es sind jedoch beide Objekte als gewählt hinterlegt, also je eines in zwei ListBoxen. Geht man zurück zu dem zuerst gewählten Objekt in ListBox 1, so wird dieses nicht mehr aktiviert, sondern die Auswahl bleibt beim zuletzt gewählten.
Kann man einstellen, dass auf der Userform nur eine einzige Auswahl möglich ist?
Danke für die Hilfe
Michael
Betrifft: AW: Userform: Focus zwischen Listboxen bewegen
von: Nepumuk
Geschrieben am: 11.08.2004 15:50:34
Hallo Michael,
das hatten wir heute schon mal:
https://www.herber.de/forum/messages/467708.htmlGruß
Nepumuk
Beiträge aus den Excel-Beispielen zum Thema "Userform: Focus zwischen Listboxen bewegen "