Gruppe
Matrix
Bereich
Matrixfunktion
Thema
Kosten nach mehreren Kriterien erfassen
Problem
Kosten sollen nach mehreren Kriterien erfaßt und analysiert werden. Die Lösung beruhr auf Matrixformeln.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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