Private Sub Worksheet_Change(ByVal Target As Range) 'invullen van cellen zonder formules
On Error GoTo Worksheet_Change_Exit
If Target.Cells.Count = 1 Then ' Safety feature, only process when one cell is changed
If Target.Row > 12 Then
Application.EnableEvents = False
If Target.Column = 1 Then
If IsEmpty(Target) Then
Range(Target, Target.Offset(, 9)).ClearContents
Else
Target.Offset(, 1).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 6).Value 'artikelnummer
Target.Offset(, 2).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 1).Value 'omschrijving
Target.Offset(, 4).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 2).Value 'bruto prijs per stuk
If Target.Value < 12 Then
Target.Offset(, 8).Value = Sheets("artikellijst").Columns(1).Find(Target.Value).Offset(, 4).Value 'netto prijs per stuk
End If
End If
ElseIf Target.Column = 4 Then
If Target.Offset(, -3).Value < 12 Then
Target.Offset(, 4).Value = Target.Value * Target.Offset(, 1).Value
Else
Target.Offset(, 2).Value = Target.Value * Target.Offset(, 1).Value
Target.Offset(, 6).Value = Target.Value * Target.Offset(, 5).Value
End If
End If
End If
End If
Worksheet_Change_Exit:
Application.EnableEvents = True
End Sub