Anzeige
Archiv - Navigation
1680to1684
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
Inhaltsverzeichnis

ListBox

ListBox
10.03.2019 09:53:28
Rolf
Hallo und einen schönen Sonntag,
in einer Userform sind Listbox1 (mit ca 400 Daten) und Listbox2 (leer).
Ein Klick in Listbox1 bringt das jeweilige Datum nach Listbox2.
Mein Ziel:
Nach einer vorgegebenen Anzahl keine weiteren "Transfers" mehr zu zulassen.
"If ListBox2.ListCount = 10 Then ListBox1.Enabled = False"
zeigt leider keine Reaktion.
Was mache ich da falsch?
Gruß
Rolf
https://www.herber.de/bbs/user/128261.xlsm

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

Betreff
Datum
Anwender
Anzeige
Exit Sub
10.03.2019 10:16:29
Matthias
Hallo
Private Sub ListBox1_Click()
If ListBox2.ListCount = 10 Then Exit Sub
[T1!E1] = ListBox1.ListIndex
ListBox2.AddItem Sheets("T1").Range("E2")
Label5_Click
End Sub
Gruß Matthias
AW: ListBox
10.03.2019 10:16:35
Werner
Hallo Rolf,
z.B. so:
Private Sub ListBox1_Click()
[T1!E1] = ListBox1.ListIndex
If Me.ListBox2.ListCount 
Gruß Werner
AW: ListBox
10.03.2019 10:49:18
Rolf
Hallo Matthias, hallo Werner,
eure Vorschläge funktionieren wunderbar.
Recht herzlichen Dank an euch beide und noch einen schönen Tag.
Gruß
Rolf
Gerne u. Danke für die Rückmeldung. o.w.T.
10.03.2019 11:10:41
Werner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige