Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

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.html
Gruß
Nepumuk


 

Beiträge aus den Excel-Beispielen zum Thema "Userform: Focus zwischen Listboxen bewegen "