VLookop funktioniert nicht
06.10.2017 11:00:04
Daniel
ich möchte gerne einen Tabellenbereich mit dem Bereich einer anderen Tabelle vergleichen und bei gleicher Artikelnummer die entsprechende Artikelbezeichnung ausgeben.
Nachfolgend seht ihr meinen Ansatz mit VLookup. Leider bekomme hierbei einen Laufzeitfehler angezeigt: Die VLookup Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.
Um "Formatierungs-Geschichten" auszuschließen habe ich schon einen einfachen Abgleich mit einer If-Funktion geschrieben - Das funktioniert.
Private Sub CommandButton2_Click()
Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim Zelle As Range
Dim WsF As WorksheetFunction
Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Materialhierarchie")
Set Ziel = Arbeitsmappe.Worksheets("Remedy")
Set Bereich = Datenbasis.Range("A2:A1048576")
Set WsF = Application.WorksheetFunction
Ziel.Range("AM5").Value = WsF.VLookup(Ziel.Range("J5").Value, Datenbasis.Range("A2"), 4, False)
'If Ziel.Range("J5").Value = Datenbasis.Range("A2").Value Then
'Ziel.Range("AM5").Value = Datenbasis.Range("D2")
'End If
End Sub
Grüße
Daniel
Anzeige