VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kosten nach mehreren Kriterien erfassen

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

    


Beiträge aus dem Excel-Forum zu den Themen Matrix und Matrixfunktion