Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox Auswahl beschränken

Listbox Auswahl beschränken
16.12.2003 00:46:05
Jochen
Hallo Leute,

ich würde gern in einer Listbox mit Mehrfachauswahlmöglichkeit die
Anzahl auf 5 Einträge beschränken. Leider sind meine Versuche mit
Selected ect. gescheitert.

Ich hoffe, es hat jemand einen heißen Tipp.

Gruß und danke schon mal.

Jochen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox Auswahl beschränken
16.12.2003 07:34:17
Nepumuk
Hallo Jochen,
so geht's:

Option Explicit
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim intIndex As Integer, intZaehler As Integer, intAusgewaehlt As Integer
intAusgewaehlt = ListBox1.ListIndex
For intIndex = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(intIndex) Then intZaehler = intZaehler + 1
Next
If intZaehler = 6 Then
MsgBox "Maximal fünf Einträge dürfen ausgewählt werden.", 48, "Hinweis"
ListBox1.Selected(intAusgewaehlt) = False
End If
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Listbox Auswahl beschränken
16.12.2003 16:01:18
Jochen
Hallo,

danke, aber das klappt nur, wenn ich die Sätze einzeln anklicke.
Wenn ich mit shift+Maus ziehe oder nur mit der Maus einmal klicke
und dann ziehe, nutzt das auch nichts.

Gruß Jochen
AW: Listbox Auswahl beschränken
16.12.2003 21:01:08
Nepumuk
Hallo Jochen,
kann ich nicht nachvollziehen. Der Code reagiert auf das loslassen der Maustaste und funktioniert bei mir zu 100%.
Gruß
Nepumuk
Danke, erledigt..oT
16.12.2003 21:31:19
Jochen
oT

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige