Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

genau 3 Einträge aus listbox

genau 3 Einträge aus listbox
26.07.2005 10:49:54
Ceci
Hallo an alle,
ich möchte in einer Listbox festlegen, dass maximal 3 Einträge ausgewählt werden können. die Eigenschaft multiselect kenne ich. Nur wie stelle ich genau 3 Einträge ein?
sonnige Grüße aus dem schwarzwald,
Cäcilia

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: genau 3 Einträge aus listbox
26.07.2005 13:55:49
Leo
Hi,
Option Explicit

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim intI As Integer, intZ As Integer, intA As Integer
intA = ListBox1.ListIndex
For intI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(intI) Then intZ = intZ + 1
Next
If intZ >= 4 Then
MsgBox "Maximal 3 Einträge dürfen ausgewählt werden.", 64, "weise hin..."
ListBox1.Selected(intA) = False
End If
End Sub

mfg Leo
vielen Dank...
27.07.2005 07:12:25
Ceci
Hallo Leo,
vielen Dank für deine Idee. Funktioniert prima!
mfg CÄcilia
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige