SVerweis auf anderes Sheet nicht hinbekommen
29.01.2018 08:09:05
Burak
also ich habe den sverweis auf ein anderes Tabellenblatt versucht und bin dabei kläglich gescheitert :D
Also in Tabellenblatt "Hilfstabelle" stehen in Spalte A Werte, die in Tabellenblatt "BarcodeLPMatrix" Spalte A gesucht werden sollen. Bei Übereinstimmung soll in "Hilfstabelle" Spalte D der Wert aus "BarcodeLPMatrix" Spalte B kopieren.
Code:
Private Sub CommandButton1_Click()
Dim Zeilenzahl As Long
Zeilenzahl = Range("A1").CurrentRegion.Rows.Count
For i = 2 To Zeilenzahl
Range("D" & i) = Application.WorksheetFunction.VLookup(Range("A" & i).Value, Worksheets(" _
BarcodeLPMatrix").Range("A2:A150"), Worksheets("BarcodeLPMatrix").Range("B2;B150"))
Next i
End Sub
https://www.herber.de/bbs/user/119353.xlsm
Freundliche Grüße und vielen Dank