VBA-Programmierung in Microsoft Excel

Suchwert in zweiter Tabelle suchen und Fundzeile eintragen

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

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change