Als niet in gevonden in de eerste werkblad dan zoeken in tweede werkblad

[HWV]

Beste,

In mijn werkblad gebruik ik onderstaande code, wat goed werkt.
Nu wil ik eerst kijken in werkblad (Beren) of daar een artikel voor komt.
Zo ja dan deze gegevens pakken en anders de weg volgen zoals in de code

Ik heb gekeken of ik de if else kan gebruiken maar dat loopt niet

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'============================
'Artikelgegevens
'============================
If Target.Column = 1 Then
Target.Offset(, 2).Value = ""
Target.Offset(, 2).Value = Workbooks("GST1- Eenheden1").Sheets("Artikelen").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 1).Value
Target.Offset(, 3).Value = ""
Target.Offset(, 3).Value = Workbooks("GST1- Eenheden1").Sheets("Artikelen").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 2).Value
Target.Offset(, 4).Value = ""
Target.Offset(, 4).Value = Workbooks("GST1- Eenheden1").Sheets("Artikelen").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 3).Value
Target.Offset(, 5).Value = ""
Target.Offset(, 5).Value = Workbooks("GST1- Eenheden1").Sheets("Artikelen").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 4).Value
Target.Offset(, 6).Value = ""
Target.Offset(, 6).Value = "'" & Workbooks("901-Barcode ZNP").Sheets("Data1").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 4).Value
[G7] = "'" & Left([G7], 12)

End If

End Sub

Groet Henk