Listbox - Multiselect | HERBERS Excel Forum

Forumthread: Listbox - Multiselect

Listbox - Multiselect

21.07.2005 12:07:58

Gerber

Hallo!
Ich hab folgendes Problem...
Ich hab in einem Formular eine Listbox mit der Eigenschaft "fmMultiSelectExtended". Kann ich irgendwie das Verhalten dieser Listbox so verändern, dass wenn man einen Eintrag anklickt, dessen Auswahl quasi getriggert wird, also wenn er "an" ist, dann soll er hinterher "aus" sein und umgekehrt, ohne dass sich das auf die anderen schon ausgewählten Einträge auswirkt? Normalerweile führt der Klick ja dazu, dass alle bereits gewählten Einträge wieder "abgewählt" werden, es sei denn man drückt STRG. Dies will ich aber gerade vermeiden! Kann ich also irgendwie die OnClick-Routine übergehen und mein eigenes Verhalten implementieren?
Vielen Dank
Karsten Gerber

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox - Multiselect

21.07.2005 12:10:50

Hajo_Zi

AW: Listbox - Multiselect

21.07.2005 12:10:50

Hajo_Zi

Hallo Karsten,


Private Sub UserForm_Activate()
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Range("A1").CurrentRegion
' Die oberste Zeile enthaelt die Feldnamen.
' Diese brauchen wir nur dort um die Columnheader darzustellen,
' aber nicht fuer die Listboxeintraege.
' Also den Datenbereich um die Erste Zeile reduzieren.
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count)
' Spaltenanzahl des Datenbereichs ermitteln.
intColums = rngSource.Columns.Count
With Me.ListBox1
.ListStyle = fmListStyleOption      ' Auswahlfeld zu Beginn der Zeile
' von Peter Haserodt
' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox
'.MultiSelect = fmMultiSelectSingle
' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo
.MultiSelect = fmMultiSelectMulti
'.MultiSelect = fmMultiSelectExtended
' gibt eigentlich nur bei Liststyle Plain einen Sinn, funzt aber auch anders.
' Dies bewirkt, dass mit Shift und Strg Tasten  eine Mehrfachauswahl getroffen
' werden kann
.ColumnCount = intColums
.ColumnHeads = True
.RowSource = rngSource.Address
End With
Set rngSource = Nothing
ListBox1.Tag = ""
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

Beliebteste Forumthreads (12 Monate)

Listbox - Multiselect

Forumthread: Listbox - Multiselect

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread