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