VLookUp des RangeObjektes nicht zuordbar
23.02.2018 10:03:46
Christian
ich mal wieder - ich habe in der UserForm5 eine Combobox4, der ich ja nach Inhalt eine unterschiedliche RowSource übergeben möchte. Der Auslöser dieser Überprüfung ist die Checkbox1, die das Makro startet.
Idee ist, wird der bisherige Inhalt der Combobox in der Range(W5:W100) im Tabellenblatt Produktauswahl gefunden, kann bei DeAktivieren der Checkbox auf die RowSource W4 umgestellt werden. Wird der Inhalt der Combobox jedoch nicht in der Range gefunden, muss die RowSource auf A4 bleiben und die Checkbox bleibt aktiviert.
Leider bekomme ich für den zweiten Fall den Fehlerhinweis, dass die VLookUp Eigenschaft nicht zuordbar ist. Hier greift wohl IfError nicht, oder? Kann mir jemand weiterhelfen - ich habs versucht.
If Len(UserForm5.ComboBox4) > 0 Then
With Worksheets("Produktauswahl")
If WorksheetFunction.IfError(WorksheetFunction.VLookup((UserForm5.ComboBox4.Text), Worksheets("Produktauswahl").Range("W5:W1000"), 1, False), 0) = 0 Then
UserForm5.CheckBox1 = True
UserForm5.ComboBox4.RowSource = Worksheets("Produktauswahl").Range("A4")
Exit Sub
End If
If UserForm5.CheckBox1 = False And WorksheetFunction.IfError(WorksheetFunction.VLookup((UserForm5.ComboBox4.Text), Worksheets("Produktauswahl").Range("W5:W1000"), 1, False), 0) > 0 Then
UserForm5.ComboBox4.RowSource = Worksheets("Produktauswahl").Range("W4")
End If
If UserForm5.CheckBox1 = True Then
UserForm5.ComboBox4.RowSource = Worksheets("Produktauswahl").Range("A4")
End If
End With
Exit Sub