mit der combobox1 (userform) lese ich werte in zwei anderen comboboxen ein,
combobox2 und combobox3. mein problem ist, ich muss nun ein textfeld "txtSpalte1" einbinden.
folgenden code habe ich geschrieben:
Option Explicit
'*** Werte einlesen ***
Private Sub ComboBox1_Change()
'Variablendeklaration
Dim shdaten As Worksheet
Dim arrOTeile As Variant
Dim arrETeile As Variant
'Objektvariable setzen
Set shdaten = Worksheets("Artikelliste")
With Worksheets("Artikelliste")
'Artikelbereich in Array einlesen
arrOTeile = .Range(.Cells(ComboBox1.ListIndex + 2, 3), _
.Cells(ComboBox1.ListIndex + 2, 6))
End With
With Worksheets("Artikelliste")
'Artikelbereich in Array einlesen
arrETeile = .Range(.Cells(ComboBox1.ListIndex + 2, 2), _
.Cells(ComboBox1.ListIndex + 2, 3))
End With
'Einzelpreis-ComboBox, Einheit-ComboBox leeren,
'füllen und ersten Datensatz auswählen
With ComboBox2
.Clear
.Column = arrOTeile
.ListIndex = 0
End With
With ComboBox3
.Clear
.Column = arrETeile
.ListIndex = 0
End With
End Sub
nun meine frage: wie muss ich den code abändern, dass die txtSpalte1 mit eingelesen wird. der eintrag steht in der "artikelliste" in spalte "a".
für eure hilfe wäre ich dankbar.
gruß martin