Gruppe
Matrix
Problem
Kosten sollen nach mehreren Kriterien erfaßt und analysiert werden. Die Lösung beruhr auf Matrixformeln.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
On Error GoTo ERRORHANDLER
Cells(Target.Row, 1).Value = Now
With Worksheets("Artikel")
Cells(Target.Row, 3).Value = WorksheetFunction.VLookup(Target.Value, .Columns("A:D"), 2, 0)
Cells(Target.Row, 4).Value = WorksheetFunction.VLookup(Target.Value, .Columns("A:D"), 3, 0)
Cells(Target.Row, 5).Value = WorksheetFunction.VLookup(Target.Value, .Columns("A:D"), 4, 0)
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub