Gruppe
Ereignis
Bereich
Change
Thema
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen
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