VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Korrespondierende Werte aus Tabelle und Datum eintragen

Gruppe

Ereignis

Bereich

Change

Thema

Korrespondierende Werte aus Tabelle und Datum eintragen

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.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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 Ereignis und Change