Mit Mausrad scrollen in ListBox und ComboBox| Excel VBA

Wir schauen uns an, wie wir in ListBox/Listenfeld und ComboBox/Kombinationsfeld mit dem Mausrad scrollen können. (Scrollfunktion aktivieren)

________

LINKS zu den Excel VBA Grundlagenvideos

________

Timestamps
0:00 Intro
0:18 Ausgangslage
0:45 Code einfügen
1:23 Scrollfunktion in ListBox aktivieren
2:41 Hinweis Windows API
3:15 Unhook Scrollfunktion
3:53 ComboBox mit Daten einfügen
4:35 Scrollfunktion in ComboBox aktivieren
5:30 Elementscroll
6:14 ListBox befüllen und Suchfunktion programmieren

[peterkusajda]

Deine Videos helfen mir gerade sehr, eine eigene Lagerverwaltung anzulegen! Großartig, vielen Dank!

[konradronniger]

Funktioniert super und auch gleich beim 1. Mal. Vielen Dank für die super ausführliche Beschreibung. Das ist genau das, was ich gesucht hatte. Ich hätte nicht gedacht, das eine "einfache" Scrollfunktion so ein umfangreiches Skript erfordert (Ich meinte das Skript zum reinkopieren.).

[gerhardmayer]

Ich hatte ein kleines VBA Projekt. Ich wollte eigentlich nur Werte aus einer ListBox in eine Zelle schreiben. Dank deiner Videos ist das ganze eskaliert…. mit Ordner anlegen, Daten aus anderen Excel Dateien auslesen, PDF erstellen usw…. und es nimmt kein Ende😂 Super Videos, sehr verständlich erklärt

[karlapp]

Hallo. Ich verfolge Dich ja schon eine ganze Weile auf YT und ich muss sagen das ich echt viel gelernt habe. Hab mich mit der VBA Geschichte erst recht spät beschäftigt aber dennoch viel gefallen dran gefunden. Ganz ehrlich? Bei Dir würde ich liebend gern, auch mit 45, mal in die Schule gehen wollen.

[Tschippi]

Vielen Dank für das tolle Video, vor allem auch danke an die tolle Community, die Probleme nicht nur negativ zum besten gibt, sondern auch eine Lösung mitliefert!!! Grandios.

[ThomasBecker-rx]

Wow, das ist ein mega hilfreiches Video. Ich habe auf der Arbeit eine Personalliste mit über 40 Mitarbeitern die durch Auswahl des Namens auf weitere Funktionen zugreift. Mit dieser Funktion fällt die Auswahl der Namen deutlich leichter. Vielen Dank 😊

[therealcoxie]

Ganz hervorragendes Code-Schnipselchen!!!
Funktioniert auch in Word-VBA, dazu muss aber im Modul eine kleine Änderung gemacht werden:

Aus
Sub HookListBoxScroll(frm As Object, ctl As Object)
Mache
Sub HookListBoxScroll(frm As Object, ctl As Control)

..und es funktioniert einwandfrei.


Ganz dickes Dankeschön! Habe ich lange nach gesucht...

[marcelk]

Funktioniert super ... habe ich in meinem Projekt getestet und integriert ... Danke!

[Eislecke]

Vielen vielen Dank für die tolle Anleitung. Hat bei mir direkt funktioniert und erleichtert nun die Arbeit erheblich. Dickes fettes DANKE dafür. :-)
Deinen Kanal habe ich durch Zufall gefunden und direkt abonniert.
Klasse Tipps und Tricks, die du da vermittelst. 🙂

[knut]

Tolles Video. Passt gerade in mein laufendes Projekt und habe es deshalb gleich mit implementiert.
Hier meine Erfahrungen:
Für Rechner mit 32 Bit Versionen muss der Code umgeschrieben werden.

Original:
#If VBA7 Then
Private Function MouseProc(_

#If Win64 Then
...
#Else
If WindowFromPoint(lParam.Pt.X, lParam.Pt.Y)= mListBoxHwnd Then
....jetzt kommt der zu ändernde Code...
Else: If lParam.hWnd > 0 Then idx = -1
Else
idx = 1
....Ende zu ändernder Code...

geänderter Code..
Else
If lParam.hWnd > 0 Then idx = -1 Else idx = 1
....Ende geänderter Code..

Und bei Verwendung einer ListBox deren Property MultiSelect auf 2-fmMultiSelectExtended eingestellt ist, sollte
Const scrollOnly As Boolean = True
gesetzt sein, sonst gibts ein unerwartetes/unerwünschtes Verhalten.

Noch mal zum Schluss: tolle Videoreihe, weiter so!

[jazzmutant]

Super Tut. Hat mir heute sehr geholfen, vieln Dank dafür.

[SanceZZ]

Wieder mal ein hervorragendes Video. 👌😊 Ich hatte bei mir nur den Code hinterlegt der auf der Seite da zu finden war. Da hatte ich dann das Problem, dass sobald ich mit der Maus in der ListBox war, dass die Performance runter ging und die Mausbewegungen stockend waren. 🙈 Hab mich dann auf Arbeit doch fürs ListView entschieden, da des bei denen die das nicht haben einfach von selbst nachinstalliert wird. 😁

[Shinamoto]

@KaiWeissmann
Tolle Anleitung, vielen Dank dafür.
Eine frage hätte ich. Wo in dem ganzen Quellcode kann ich bestimmen, dass die Comboboxen nicht aktiviert werden sollen wenn ich mit der Maus darüber gehe? Oder ist das eine Notwendigkeit für das Scrollen?

[enriquealejandrorussellmon]

Hallo Kai,

vielen Dank für dieses Video. Ich versuche, den Code auf einem Firmen-Laptop zu verwenden, auf dem ich nicht der Admin bin. Der Code an sich funktioniert, aber wenn ich die Datei speichern möchte, funktioniert es leider nicht mehr. Es wird ein Fehler angezeigt, dass die Datei von einem anderen Benutzer zum Bearbeiten gesperrt ist. Es liegt vermutlich an "user32". Hast du eine Idee, wie ich es umgehen kann?

Grüße

[svenbergmann]

Der Code funktioniert einwandfrei, allerdings habe ich in der Userform jetzt das Problem, das die ComboBoxen nachdem ich sie mit dem Scrollen gefüllt habe beim Drüberfahren blau eingefärbt sind und angeschlossene Textboxen den Text erst nach dem Drüberfahren anzeigen. Ist in meinem Fall in der ComboBox eine Auswahl von Equipment und in der Textbox die zugehörige PN. Kann man das weg bekommen? Ich sehe auch, das der Mauszeiger sich anders verhält, wenn man über die Textboxen fährt. Danke schon mal im Voraus.

[varradero]

Hallo Kai, das klappt wunderbar wie kann ich den die Userfom da sie grösser ist als der Bildschirm ist scrollbar mit der Maus machen. Bisher muss ich dazu die Leiste immer schieben oder auf die Pfeile klicken. Danke Michael

[BikingJoey]

Hi auf meinem Win10 PC funktioniert das super. Gibt es eine Möglichkeit, das auch für Macs zum laufen zu bringen

[TylerTysonDeathrace]

Moin, geht das ganze auch ohne Userform, mit userform funktioniert es bei mir, aber ich hätte die Funktion gerne ohne Userform. Bei mir wird dann im Code immer die (IF Not frm.ActiveControl is ctl then) gelb hinterlegt? Hab nochmal geschaut. Laufzeitfehler 432 und das Objekt unterstützt nicht die Aktion. Grüße

[svenj.]

Hallo und vielen Dank für deine Hilfe. Funktioniert einwandfrei. Kannst du mir sagen, wie ich das auch für eine TextBox hinbekomme?
anke und Grüße
Sven

[tomlklee]

Wie funktioniert das lediglich mit der Userform selbst? Also ich möchte infach nur die Userform die etwas länger ist scrollen - sollte doch auch klappen, oder ist das komplizierter?