Anomalie bei ComboBox Ereignis in UserForm
20.05.2005 12:43:57
Eduard
Sitze nun schon seit mehreren Stunden an einem Problem - ohne Erfolg.
Ich habe eine UserForm welches ComboBox1 bis ComboBox20 mit ca. 1000 Einträgen beinhaltet.
Folgende Ereignisse sollen an ein Makro den Inhalt der ComboBox übergeben.
1. Eingaben über die Tastatur.
Realisiert durch:
Private Sub ComboBox1_Change()
Debug.Print "ComboBox1_Change ( " & ComboBox1.Value & " )
Call Makro(ComboBox1.Value)
End Sub
----------------------------------
2. Auswahl über das Dropdown Menü.
Realisiert durch:
Private Sub ComboBox1_DropButtonClick()
Debug.Print "ComboBox1_DropButtonClick( " & ComboBox1.Value & " )
Call Makro(ComboBox1.Value)
End Sub
----------------------------------
3. Einfaches auswählen der ComboBox, durch setzten des Cursors in die ComboBox
Realisiert über:
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Debug.Print "ComboBox1_MouseDown( " & ComboBox1.Value & " )
Call Makro(ComboBox1.Value)
End Sub
---------------------------------
Einzeln funktionieren die Ereignisse 1 und 2 gut. In Kombination mit 3. wird allerdings nicht der neu ausgewählte Wert der ComboBox übergeben. Der übergeben Wert ist ein wenig umständlich zu erklären. (Das Dropdown Menü hat bei Aktivierung einen sichtbaren Bereich von 8 Positionen. Scrole ich nun im Dropdownmenü ein wenig runter und wähle Position 2 des neuen sichtbaren Bereichs aus, dann wird als Wert an mein Makro die Position 2 des zuvor sichtbaren Bereichs übergeben.)
Ich habe versucht das 3. Ereignis durch ComboBox1_Click zu ersetzten funktioniert nicht. ComboBox1_DblClick würde funktionieren, ist aber nicht so schön.
Könnt Ihr mir bitte weiter helfen.