Combobox in Toolbox



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Combobox in Toolbox
von: Michael
Geschrieben am: 30.06.2002 - 12:31:06

Für Hans
nochmal ich, wenn ich in einer Combobox (Steuerelement Toolbox)
den Code

Private Sub comboBox1_Change()
Range("AA37") = ComboBox1.Value
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim I As Integer
ComboBox1.Clear
For I = 3 To 40
ComboBox1.AddItem Sheets("xy").Cells(I, 1)
Next I
End Sub

Dein Vorschlag mit ComboBox1.Clear funktioniert nicht so richtig jedesmal wenn ich einen Eintrag auswähle, wird die Liste gelöscht.
Wie funktionierts richtig, das die Einträge nur einmal angezeigt werden.


nach oben   nach unten

Re: Combobox in Toolbox
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 14:32:55

Hallo Michael

auch wenn ich nicht Hans bin folgender Vorschlag

Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then
        Range("AA37") = ComboBox1.List(ComboBox1.ListIndex, 0)
        Range("AA38") = ComboBox1.List(ComboBox1.ListIndex, 1)
    End If
End Sub

Private Sub ComboBox1_DropButtonClick()
    Dim As Integer
    If ComboBox1.ListCount > 0 Then Exit Sub
    For I = 3 To 40
        ComboBox1.ColumnCount = 2
        ComboBox1.TextColumn = 1
        ComboBox1.AddItem Sheets("xy").Cells(I, 1)
        ComboBox1.List(I - 3, 1) = Sheets("xy").Cells(I, 2)
    Next I
End Sub

Gruß Hajo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Combobox in Toolbox"