Mit neuem Wissen ausgestattet, habe ich (leider erfolglos) an folgender Herausforderung gearbeitet und bitte nun um Hilfe:
Beim Ausfüllen einer Userform soll der Anwender in Comboxbox1 eine Firmenauswahl treffen. In Combobox2 soll daraufhin die Liste der Produkte nur der gerade ausgewählten Firma angezeigt werden. Von denen wird dann eine ausgesucht.
Auf Sheet "ProdbyVend" habe ich die Firmennamen in einer ROW aufgelistet (1B, 1C, 1D usw); jeweils in der COLUMN darunter stehen die Produktnamen (B2, B3 usw; C2, C3 usw.).
Ich habe folgenden Code verwendet, der voller Fehler sein wird, glecih zu Beginn - bei ---With Sheets("ProdbyVen")--- wird abgebrochen mit Laufzeitfehler 9: "Index außerhalb des gültigen Bereichs"
Hier der Code...
Private Sub CmbInvoiceChooseVendor1_Change()
Dim d As Range
With Sheets("ProdbyVen")
Set d = .Rows(1).Find(CmbInvoiceChooseVendor1.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not d Is Nothing Then
CmbInvoiceItem1.Value = ProdByVen.Range("d", ProdByVend.Range("d").End(xlDown)).Value.Cells(d.Row, 1).Value
End If
End With
End Sub
Ich freue mich auf Rat und Belehrung!
|