VBA UF: Values einer ListBox ansprechen

Hallo,
ich habe mal wieder eine Idee für bessere Usability.
Idee 1:
Und zwar habe ich ein UF mit einer ListBox darauf.
Hier kann man nun eine oder mehrere Values auswählen.
Ich will nun unten eine TextBox einbauen, die immer anzeigt wieviele values man
gerade ausgewählt hat.
Dafür bräuchte ich aber ein Ereignis, welches in Kraft tritt wenn, wenn values
aktiviert bzw ausgewählt wird. Change Ereignis geht ja nicht weil hier
kann ich ja die anderen aktivierten Values nicht zählen.
Wie also sonst?
Idee2
Ebenso UF mit ListBox, hier allerdings per Option d.h. es kann immer nur einer
ausgewählt werden. Man kann durch die Liste scrollen und ich möchte den gerade
aktiven in fetter Schrift hervorheben.
Kein Schimmer wie, ist das möglich?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _ ByVal Y As Single) Dim ii As Long, lngA As Long lngA = 0 With ListBox1 For ii = 0 To .ListCount - 1 lngA = lngA - ListBox1.Selected(ii) Next ii End With TextBox1 = lngA End Sub Private Sub XXX_ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _ Single, ByVal Y As Single) Dim ii As Long, lngA As Long lngA = 0 With ListBox1 For ii = 0 To .ListCount - 1 If ListBox1.Selected(ii) Then Cells(ii + 1, 1) = .List(ii) lngA = lngA + 1 Else Cells(ii + 1, 1).ClearContents End If Next ii End With TextBox1.Text = lngA End Sub

Hi Holger,
zunächst mal: Funktioniert es denn bei dir mit dem MouseUp?
Ich habe mal drei Fundstellen hier gegoogelt:
https://www.herber.de/forum/archiv/956to960/t958587.htm#958667
https://www.herber.de/forum/archiv/1192to1196/t1193102.htm#1193363
https://www.herber.de/forum/archiv/664to668/t665370.htm#665436
Kurz gesagt: Das MouseUp-Ereginis eines Kontrollelements (z. B. Button oder Listbox) wird ausgelöst dadurch,
dass man eine Maustaste über dem Kontrollelement loslässt, die Taste also wieder hochgeht.
Mit dem (vorherigen) MouseDown wird z. B. das Selektieren (Markieren) angestoßen,
beim MouseUp ist es dann erledigt.
Hast du dir in dder VBA-Hilfe mal den Abschnitt "MouseDown-, MouseUp-Ereignisse" angesehen?
(Findest du leicht, wenn du nach mouseup suchst)
Da steht z. B.:
"Treten ein, wenn der Benutzer mit einer Maustaste klickt. MouseDown tritt ein, wenn der Benutzer die Maustaste drückt, MouseUp tritt ein, wenn der Benutzer die Maustaste loslässt."
Reicht das als Erklärung?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

VBA UF: Values einer ListBox ansprechen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA UF: Values einer ListBox ansprechen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread