Office: Excel: im DropDown einer ComboBox mit Mausrad scrollen?

Hallo zusammen,

ich habe eine UserForm in der mehrere ComboBoxen hinterlegt sind.
In einer dieser ComboBoxen (sehr sehr viele Einträge) möchte ich Scrollen mit dem Mausrad aktivieren.

Leider habe ich absolut keine Ahnung wie das funktioniert.

Die Daten für das DropDown liegen im Arbeitsblatt "Basiswerte" und dort in Spalte F2 bis F282

Ich habe für die Befüllung des DropDown ein Modul "Format" angelegt.
Hier der Code des Moduls "Format" - der rot markierte Text ist die ComboBox in der gescrollt werden soll.

Code:

Wenn noch Infos benötigt werden, bitte melden.
Ich hoffe jemand von Euch kann mir hier weiterhelfen?

Danke schon mal im Voraus und LG
Stefan

:)

 

Hi,

siehe
https://www.google.at/?gws_rd=ssl#q=...n+combobox+vba
im ersten Treffer ist von Nepumuk ein Code hinterlegt!

 

Hallo,

danke für den Link!

Den hatte ich schon mal gesehen, konnte aber mit
Klassenmodul des Userforms und Standardmodul
nichts anfangen...

Wo genau muss der oder die Codes hin?
Alle beide?

Kannst Du mir hier bitte nochmal auf die Sprünge helfen?

Danke und LG
Stefan

 

Hi Stefan,

ins Klassenmodul des UserForms gelangst du bei Doppelklick auf das UserForm im VBA-Editor - dorthin muss der komplette erste Teil des Codes. Eventulle musst du - falls du bereits ein UserForm_Activate-Ereignis hast - beide in ein gemeinsames Ereignis schreiben
Mit Standardmodul ist ein "ganz normales" Modul gemeint, welches du über "Einfügen -> Modul" erstellst - dort gehört der komplette zweite Teil des Codes hin

 

HI,

Klassenmodul des Userforms =Code auf der Userform (doppelklick auf der Userform)
Standardmodul =ein ganz normales Modul (Einfügen-> Modul)

und Code anpassen
statt Listbox1 musst du deine Combo (CboHersteller) einsetzen.

p.s ohne deine Datei baue ich das jetzt nicht eine Beispieldatei ein, die ja ohnehin wieder auf deine Datei angepasst werden müsste.

 

Liebe Beverly,
lieber chris-kaiser,

danke für Eure Hilfe - es ist etwas klarer geworden...

Ich habe jetzt die beiden Codes kopiert und m.E. angepasst...

Den Code für Klassenmodul habe ich einfach unter die bestehenden Einträge im Code der UserForm kopiert und angepasst.

Den Code für Standardmodul habe ich in einem neu erstellen Modul (Modul2) kopiert und den - ich glaube es war nur 1 einziger Eintrag - angepasst.
(Nebenfrage: Kann ich eigentlich die Namen Modul1 und Modul2 "gefahrlos" anpassen, damit die Benennung klarer wird oder muss ich dann in anderen Modulen, etc. wieder etwas anpassen?)

Leider klappt es trotzdem nicht...

Ich habe die Datei mal entsprechend hochgeladen.

Damit sollte die Fehlersuche leichter fallen.

Danke für Eure Hilfe!!!!

LG
Stefan

 

Hallo Stefan,

autsch..., ich kann deinen Codeaufbau nur schwer folgen. ^^ Irgendwie entspricht dieser nicht einer allgemeinen Norm.

Userform_activate

bleibt Userform_activate

Selbst nach dem Umbau wie Nepumuk es vorschlägt, geht es leider nicht.
Der Code geht nur bis Excel2007.

Ich habe Dir ein ImageControl eingebaut, ggf. geht es mit dieser besser da in selbigen scrollen Standard ist.

 

Hi Stefan,

also 1. müsste auf jeden Fall heißen UserForm_Activate und nicht MaskePlakat_Activate. Und wenn ich das richtig gesehen habe, füllst du die ComboBox bereits vor dem Avtivate-Ereignis - dort muss sie also nicht noch einmal geüllft werden.

2. muss hier nicht CboHersteller sondenr der Name des UserForms stehen:

Code:

Aber trotz der Korrektueren kann man in der ComboBox bei mir (Excel2013) nicht scrollen.

 

Hallo ihr 2,

danke nochmal.

Ich dachte immer wenn UserForm steht muss ich den Namen meiner UserForm reinschreiben...? nicht?

@chris-kaiser
Ja, so kann man scrollen. *Smilie
Aber leider hat es mir jetzt ein paar andere Sachen zerschossen.

1. im Gegensatz zu vorher geht die Autocomplete Funktion bei Hersteller nicht mehr.
Bisher konnte ich z.B. aktiv bei Hersteller reintippen (war ja schon als erster Eintrag markiert) und er hat mir dann den Vorschlag gleich gebracht. z.B. wenn ich "ba" getippt habe, dann kam der erste Wert aus dem DropDown mit Ba... weißt Du was ich meine?
Eigentl. wollte ich das bei den anderen Cbo-Boxen auch machen (mit Autocomplete) aber das geht irgendwie nicht.

2. wenn ich auf "Eingaben löschen" drücke, dann sollte wieder bei Hersteller "Abenstaler" stehen und die Zelle aktiv gesetzt sein, so dass ich wieder direkt losschreiben könnte.

Hier kommt aktuell ein Fehler (wg. dem IMG denke ich). => rot ist markierte Zeile beim Debuggen
Code:

3. hat es einen bestimmten Grund, dass "Abenstaler" in der cbo jetzt, im Vergleich zu den Werten aus anderen cbo's, ganz nach links ins Eingabefeld verschoben ist???


Mehr konnte ich noch nicht testen...

LG
Stefan

 

Hi Stefan,

Dem ist nicht so, denn UserForm_Activate ist ein allgemeiner Befehl so wie z.B. Worksheet_Activate - dort schreibst du ja auch nicht Tabelle1_Activate...*wink.gif*

 

Hallo Stefan,

eine Imagecombo ist nicht ganz vergleichbar mit der Standard Combo und ich habe deinen Code nicht in vollem Umfang getestet. (Weil mir der Ablauf davon nicht geläufig ist)

Entweder ein wenig einlesen wie eine ImageCombo zu steuern ist, oder einfach auf scrollen verzichten.

 

Alles klar - vielen lieben Dank für Eure Hilfe, ich setze das Thema damit dann als erledigt!


LG
Stefan

 

Hi,

so doch noch was für scrollen gefunden aus:
Beispiel ist für eine Listbox ausgelegt.
https://social.msdn.microsoft.com/Fo...0?forum=isvvba