Hallo
wenn ich das richtig verstanden habe
du suchst in Zeile 1 nach einem Wert aus der einen Combobox
wenn gefunden soll der Inhalt der gefundenen Spalte in der zweiten Combobox eingetragen werden
dann probier das hier mal
achte aber auf die richtige Schreibweise des Tabellenblattes und der Comboboxen
Private Sub CmbInvoiceChooseVendor1_Change()
Dim d As Range
Dim lngLetzte As Long
Dim varDaten As Variant
With Sheets("ProdbyVend")
Set d = .Rows(1).Find(CmbInvoiceChooseVendor1, LookIn:=xlValues, lookat:=xlWhole)
If Not d Is Nothing Then
lngLetzte = .Cells(.Rows.Count, d.Column).End(xlUp).Row
varDaten = .Cells(1, d.Column).Resize(lngLetzte, 1)
CmbInvoiceItem1.List = varDaten
End If
End With
End Sub
MfG Tom
|