Die VLookup-Eigenschaft der WorksheetFunction-Klasse kann nicht abgerufen werden

0

Ich möchte einen Barcode-Finder in Excel implementieren, daher habe ich Artikelnamen und Barcodes in separaten Blättern, je nachdem zu welcher Gruppe ein Artikel gehört. Der Benutzer klickt auf ein Optionsfeld (Auswahl von Gruppe 1, Gruppe 2 oder was auch immer), und der Füllbereich eines Listenfelds wird auf einen der von mir definierten dynamischen Namensbereiche festgelegt .

Bildbeschreibung hier eingeben

Der Benutzer klickt dann auf eine Schaltfläche, um den Barcode für den entsprechenden Artikel zu kopieren. Hier ist das mit der Schaltfläche verknüpfte Makro:

Sub Get_Barcode()
    Dim objData As New DataObject
    Dim barcode As String
    On Error GoTo Errorcatch
    barcode = Application.WorksheetFunction.VLookup(ListBox1.Text, ListBox1.ListFillRange, 1, False)
    objData.SetText barcode
    objData.PutInClipboard
    MsgBox "Barcode " & barcode & " copied to clipboard"
Errorcatch:
MsgBox Err.Description
End Sub

Das Problem ist, dass es ein anzeigt Unable to get the VLookup property of the WorksheetFunction classund ich nicht weiß, was ich falsch mache ...

microsoft-excel microsoft-excel-2010 worksheet-function lekroif
quelle

Antworten:

1

Ich habe es gelöst.

Die entsprechende Zeile im Originalcode wurde wie folgt geändert:

barcode = Application.VLookup (ListBox1.Text, ActiveWorkbook.Names (ListBox1.ListFillRange) .RefersToRange, 2, False)

lekroif
quelle