Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchwert in zweiter Tabelle suchen und Fundzeile eintragen

Gruppe

Change

Problem

Wie kann ich den Wert einer Eingabezelle in einer zweiten Tabelle suchen lassen und die Fundzeile in die Eingabetabelle übernehmen?

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

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim wks As Worksheet
   Dim rng As Range
   If Target.Address <> "$B$6" Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   Set wks = Worksheets("Tabelle2")
   Set rng = wks.Cells.Find( _
      what:=Target.Value, _
      LookIn:=xlValues, _
      lookat:=xlWhole)
   If rng Is Nothing Then
      Range("A9:F9").ClearContents
   Else
      Range("A9:F9").Value = _
         wks.Range(wks.Cells(rng.Row, 1), _
         wks.Cells(rng.Row, 6)).Value
   End If
End Sub