Hallo zusammen,
ich habe ein Makro dass mir in eine ImageComboBox mehrere Spaltenbeschriftungen einliest welche sich über das Dropdown-Menü auswählen lassen.
Beim Start des Makros steht immer folgender Text in der Box: ImageCombo1, sobald ich im Dropdown-Menü scrolle verschwindet das ImageCombo1 und ich kann meine Listenelemente anwählen. Ich weiß dass der Begriff ImageCombo1 aus der Eigenschaft "Text" der Box kommt.
Wie kann ich verhindern, dass anfangs immer der Begriff "ImageCombo1" angezeigt wird?
Vielen Dank im Voraus für eure Hilfe!
Hier der Code:
Private Sub ImageCombo1_change()
Dim i As Long
Dim Variante
Dim auswahl As String
For i = 4 To 1000
If Cells(6, i) <> "" Then
Variante = Cells(6, i)
ImageCombo1.ComboItems.Add , , Variante
End If
Next
End Sub
Private Sub ImageCombo1_Click()
Dim Text1 As Object
TextBox1.Text = ImageCombo1.Text
End Sub
Hab versucht die Box schon über diesen Code zu leeren:
Private Sub Form_Load()
ImageCombo1.ComboItems.Clear
ImageCombo1.Text = ""
End Sub
|