Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen

Gruppe

Change

Problem

Wie kann ich veranlassen, daß nach der Eingabe eines Kurzbegriffes in den beiden Zellen rechts neben der Eingabezelle Daten aus einem zweiten Tabellenblatt in Abhängigkeit vom Kurzbegriff übernommen werden?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   If Target.Column <> 1 Then Exit Sub
   If Target.Cells.Count > 1 Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   With Worksheets("Tabelle2")
      If Not IsEmpty(Target) Then
         var = Application.Match(Target.Value, .Columns(1), 0)
         If Not IsError(var) Then
            Target.Offset(0, 1).Value = .Cells(var, 2).Value
            Target.Offset(0, 2).Value = .Cells(var, 3).Value
         End If
      Else
         Range(Target, Target.Offset(0, 2)).ClearContents
      End If
   End With
ERRORHANDLER:
   Application.EnableEvents = True
End Sub