Gruppe
Ereignis
Problem
Bei Einträgen in Spalte B gem. Gültigkeitsliste werden in den Spalten C:E die korrespondierenden Werte aus Tabelle Artikel und in Spalte A das aktuelle Datum mit Zeit eingetragen.
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