VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchwert in zweiter Tabelle suchen und Fundzeile eintragen

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

    


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