ComboBox mehrspaltig

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: ComboBox mehrspaltig
von: Michael
Geschrieben am: 30.06.2002 - 08:40:58

Hallo
hab irgendwo ein Problem
Ein ComboBox in einer Tabelle soll nach einlesen von Text aus einer Tabelle diesen wieder ausgeben, was er aber nicht macht.(bzw nur erste Spalte)

comboBox1_Change ()
Range("AA37")=ComboBox1.Column (0)
Range("AA38")=ComboBox1.Column (1)
end Sub

ComboBox1_DropButtonClick()
For i = 3 to 40
ComboBox1.ColumnCount = 2
ComboBox1.TextColumn = 1
ComboBox1.Additem sheets("xy").Cells(i, 1)
ComboBox1.List(0, 1) = Sheets("xy").Cells(i, 2)
Next i
End Sub


nach oben   nach unten

Re: ComboBox mehrspaltig
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 08:57:31

Hallo Michael

Deine Combobox dürfte ja wohl noch nicht zweispaltig angezeigt werden.


Private Sub comboBox1_Change()
    Range("AA37") = ComboBox1.Column(0)
    Range("AA38") = ComboBox1.Column(1)
End Sub

Private Sub ComboBox1_DropButtonClick()
    Dim As Integer
    ComboBox1.Clear
    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


ich bin mal von einer Userform ausgegangen. Bei einem Steuereelement aus der Steuerelemente Toolbox dürfte es auch klappen.

Gruß Hajo


nach oben   nach unten

Re: ComboBox mehrspaltig
von: Michael
Geschrieben am: 30.06.2002 - 09:18:38

Jetzt klar List = nicht 0 sondern variabel
dies doch in einer steuerelemente toolbox

Habe jetzt festgestellt, das er mir den Fehler
Eigenschaft Column konnte nicht abgerufen werden. Index des Eigenschaftsfeldes ungültig.

Woran liegts ??


nach oben   nach unten

Re: Fehler ComboBox mehrspaltig
von: Michael
Geschrieben am: 30.06.2002 - 09:31:47

Hab festgestellt, daß Fehlermeldung kommt solang
ComboBox1 mit ComboBox1.Clear geleert wird.
Sobald dies nicht mehr drinsteht - gehts.

nach oben   nach unten

Re: ComboBox mehrspaltig
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 09:34:57

Hallo Michael


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

Gruß Hajo


nach oben   nach unten

Re: Fehler ComboBox mehrspaltig
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 09:37:06

Hallo Michael

dann wird aber bei jedem Klick auf das Dreieck die Liste erneut gefüllt. Ob das gewollt ist??? Also stehen die Werte dann nachher mehrmals in der Liste.

Gruß Hajo


nach oben   nach unten

Re: Fehler ComboBox mehrspaltig
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 09:39:43

Hallo Michael

entferne den Code
Private Sub ComboBox1_DropButtonClick()

und schreibe unter Eigenschaften ListfillRange A3:B40


Gruß Hajo

nach oben   nach unten

Re: Fehler ComboBox mehrspaltig
von: Michael
Geschrieben am: 30.06.2002 - 10:07:10

Hab ich mir auch schon überlegt.

Bezug vorherige Nachricht: Da jedes Feld nur einmal pro öffnen benötigt wird, ist das mehrmals füllen eigentlich egal.

Noch etwas: Gibt es eine Möglichkeit in einem mehrspaltigen Feld auch selbst Einträge vorzunehmen (als Anwender)

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "ComboBox mehrspaltig"