Gruppe
Ereignis
Problem
Wie kann ich den Wert einer Eingabezelle in einer zweiten Tabelle suchen lassen und die Fundzeile in die Eingabetabelle übernehmen?
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