Zweiten Wert aus ComboBox auf Userform l
07.05.2022 17:01:25
Frank
Ja ich weiß, wurde schon gefühlt über 100-mal gefragt und beantwortet. Aber ich habe das Gefühl, dass es dabei um CBs auf Arbeitsblätter ging. Bei mir wirft folgender Code einen Eigenschaften- bzw. Indexfehler aus.
X = combobox1.list(combobox1.listindex, 1) (beispielhaft)
Meine ComboBox wird 2-spaltig durch eine Datenbank Abfrage mit additem gefüllt und ist an kein tabellenblatt gebunden. Die Daten sind auch in der CB, denn man kann sie sehen. (Foto)
Ich benötige nun aber den 2. Wert (ist die ID) aus der CB in einer Variablen.
Weiß jemand da einen Rat?
Codeauszug:
Private Sub UserForm_Initialize()
ThisWorkbook.Worksheets("Start").Activate
ThisWorkbook.Worksheets("dbcache").Cells.ClearContents
With Me.cbKunden
.ColumnCount = 2
.BoundColumn = 1
Call Kunden_Abfragen
.Font.Size = 10
.ListRows = 30
.ListIndex = 0
End With
Hier kommt der Fehler 13 Typen unverträglich ( aber auch schon 423 Objekt erforderlich, ist unterschiedlich:
Private Sub cbKunden_Change()
Dim Kunde As String
Dim Wert As Variant
Me.ListBox1.Clear
Me.txtArtikelname.Value = ""
Me.txtArtikelnummer.Value = ""
Kunde = UCase(Left(Me.cbKunden.Value, 3))
Wert = Me.cbKunden.List(Me.cbKunden.ListIndex, 0) --------> Zeile mit Fehler
Wert = Me.cbKunden.Column(1).Value
With Me.cbKunden
Wert = Me.cbKunden.ListIndex(Me.cbKunden.ListIndex, 0).Value --------> Zeile mit Fehler
End With
Call ConnectToSQLite(Kunde, bolSort)
End Sub
Habe zum Testen verschiedene Varianten probiert, daher ist der Code doppelt.
