Listbox in Combobox
06.11.2020 10:17:18
M_Kerstin
Ich möchte einen selektierten Eintrag in der Listbox auf Textfelder und einer Combobox anzeigen. Die Textfelder sind kein Problem. Aber wie bekomme ich es hin, den Eintrag in der Combobox anzuzeigen.
Zur besseren Erklärung: Die erste Spalte "Geschoss" sollte nun in der Combobox Geschoss angezeigt werden. Weiss nicht wie man das umsetzt erhalte immer einen Laufzeitfehler 380.
https://www.herber.de/bbs/user/141362.png
Mein Code lautet:
Private Sub ListBox1_Click()
Dim markierteZeile As Integer
Dim mysum As Double
With ListBox1
'cmbBodenGeschoss.Value = ListBox1.Column(0, ListBox1.ListIndex)
Empfang.Value = ListBox1.Column(1, ListBox1.ListIndex)
Freizeit.Value = ListBox1.Column(2, ListBox1.ListIndex)
txtZi1.Value = ListBox1.Column(3, ListBox1.ListIndex)
txtZi2.Value = ListBox1.Column(4, ListBox1.ListIndex)
txtZi3.Value = ListBox1.Column(5, ListBox1.ListIndex)
txtWC.Value = ListBox1.Column(6, ListBox1.ListIndex)
TextBox2.Value = ListBox1.Column(10, ListBox1.ListIndex)
txtBodenGesamt.Value = ListBox1.Column(11, ListBox1.ListIndex)
txtGesamtTotal.Value = ListBox1.Column(9, ListBox1.ListIndex)
End With
'markierteZeile.Tag
End Sub
Kerstin