Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listbox auswahl begrenzen

Listbox auswahl begrenzen
03.03.2004 00:06:23
Daniel
HI Leute ich hab mal folgende frage:
wie schaffe ich es bei einer listbox mit multiselect eigenschaft, das wenn mehr als 3 items selected werden eine meldung erscheint, das mal max. nur 3 items auswählen kann.
gruß
daniel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox auswahl begrenzen
03.03.2004 04:43:31
Ramses
Hallo
nachdem das Klick-Ereignis bei MultiSelect nicht ausgelöst wird, geht nur der Ausweg über das Exit Ereignis.
Vielleicht ist das OK für dich.


Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim As Integer, n As Integer
Dim tmp As Integer, tmp2 As Integer
tmp = 0
For i = 1 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) = True Then
        tmp = tmp + 1
    End If
    If tmp >= 4 Then
        MsgBox "Nur 3 Möglichkeiten erlaubt"
        tmp2 = 3
        For n = 0 To Me.ListBox1.ListCount - 1
            If Me.ListBox1.Selected(n) = True And tmp2 >= 1 Then
                tmp2 = tmp2 - 1
            Else
                Me.ListBox1.Selected(n) = False
            End If
        Next n
        Exit Sub
    End If
Next i
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruss Rainer
Anzeige
AW: Listbox auswahl begrenzen
03.03.2004 12:36:17
Detlef
Hallo,
das ist ungünstig, weil es bei mir nur die Listbox und einen Schließenbutton gibt.
Ich kann die Listbox gar nicht exiten.
Gibts da noch eine andere Lösung?
Grüße Detlef
AW: Listbox auswahl begrenzen
04.03.2004 04:32:48
Ramses
Hallo
wenn du noch einen Button hast, kannst du auch "exiten".
Eine andere Lösung sehe ich nicht,
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige