Office: Kombinationsfeld

Hallo zusammen,

hier meine Frage:
Ih hab in einer Exceltabelle ein Kombifeld (ComboBox)
eingebaut, das soweit auch prima funtioniert!
Nur ist es so, das beim benutzen des Scrollrad der Maus
die komplette Seite mit runter scrollt und nicht der Inhalt
der ComboBox.
Für eine hilfreiche Antwort danke ich schon mal im voraus
und hinterlege die Datei auf www.jenskoenig.de/WAP3.0.xls

Jens

 

Hi Jens König...

Bei den Standard-Comboboxen gibt's keine Lösung. Verwende alternativ
in einer Testdatei das ImageCombo Control; Zusätzliche Steuerelemente,
Microsoft ImageComboboxControl 6.0

Befüllen musst Du es jedoch per Code, hier ein kleines Beispiel zum Testen...

Code:

Public Sub FillCombo()
  
  Dim n As Long
  
' Löschen...
  
  ThisWorkbook.Worksheets("Eingabe").ImageCombo1.ComboItems.Clear
  
' Datenbank!A1:A50...
  
  For n = 1 To 50
    
    ThisWorkbook.Worksheets("Eingabe").ImageCombo1.ComboItems.Add n, , _
    ThisWorkbook.Worksheets("Datenbank").Cells(n, 1).Value
    
  Next n
  
End Sub

Gruß

 

Danke für die rasche Antwort.
Leider verstehe ich nur Bahnhof.
Gibt es ne Möglichkeit mir eine Beispieldatei zu kommen zu lassen?

MfG Jens

 

Hallo nochmal...

liegt auf meinem Server...

http://www.maninweb.de/miscilleanous/Jens.Koenig.xls

ich muss allerdings sagen, dass manchmal Excel zum Absturz neigt,
wenn man im Entwurfsmodus rumfummelt. Wusste ich vorher auch
nicht.

Gruß

 

Klasse!
Besten Dank.

Nur wie bekomme ich die alte Combo weg?

 

Hi nochmal...

Steuerelementtoolbox anzeigen lassen (Symbolleisten), Entwurfsmodus anklicken, Symbol oben links in der Leiste, Combobox anklicken und Entf. Taste drücken.

Gruß

 

Vielen Dank nochmal.
Funktioniert bestens!
Auf den Entwurfsmodus bin ich leider nicht selbst gekommen.
(Zu viele Bäume im Wald)

Gruß Jens

 

So, da bin ich nochmal mit einem ähnlichen Problem.
Das mit dem ersten Kombifeld hat ja damals prima geklappt.
Jetzt wollte ich das gleiche nochmal einbauen,
geht aber nicht!

Hab die Beispieldatei unter

http://www.jenskoenig.de/excel/ConAnVersuch.xls

abgelegt.

Vielen Dank im vorraus

Jens

 

Hallo Jens,

ich habe Dir die modifizierte Excel-Datei unten angefügt.

Du hast 2 Comboboxen im Blatt Eingabe mit Namen ImageCombo1 und ImageCombo2.
Beim Öffnen der Excel-Mappe sollen die beiden Comboboxen mit den Auswahllisten im Blatt Prüfer bzw. TKZ befüllt werden.

Um das zu ermöglichen, wird in DieseArbeitsmappe das Open-Ereignis des Workbook-Objektes verwendet, um die beiden Füll-Prozeduren FillCombo1 und FillCombo2 aufzurufen. Ein Open-Ereignis für ein Workbook1-Objekt gibt es nicht - ich habe es deswegen auskommentiert.

Deine beiden Füllprozeduren befinden sich im Modul1.
FillCombo1 war im Prinzip ok, in FillCombo2 habe ich eine Korrektur vorgenommen: Du hattest für das ImageCombo2-Objekt auch die Eigenschaft ComboItems in Combo2Items umbenannt - diese aber gibt es nicht.
Ich habe die beiden FillComboX-Prozeduren darüber hinaus etwas angepasst: statt dass sie jedesmal 99 Elemente in die Combobox-Listen einfügen, fügen sie jetzt nur mehr die vorhandene Anzahl an Listeinträgen ein (maximal jedoch 99).
Ferner habe ich den Code etwas vereinfacht, indem ich jeweils einen With-Block für die ThisWorkbook-Instanz und für die ImageComboX-Instanz eingefügt habe.

Im Arbeitsblatt Eingabe liefern die beiden Comboboxen ihren jeweiligen Auswahlwert in den Zellen F5 bzw F7 ab.

 

Klasse,

vielen Dank dafür.
Die erste Box hat mir auch ein Profi aus diesem Forum gemacht
und beim kopieren des ganzen hab ich ein wenig verlaufen :-)

Danke nochmal

Gruß Jens