Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert in Tabelle 2 suchen und Fundstellen übertragen

Gruppe

Suchen

Problem

Die Wert aus Spalte A sollen in Tabelle2 an beliebiger Stelle gesucht und die Werte aus den Spalten B:C der Fundzeile in dieses Blatt übernommen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Uebetragen()
   Dim rng As Range
   Dim iRowL As Integer, iRow As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Not IsEmpty(Cells(iRow, 1)) Then
         With Worksheets("Tabelle2")
            Set rng = .Cells.Find(Cells(iRow, 1), _
               lookat:=xlWhole, LookIn:=xlValues)
            If Not rng Is Nothing Then
               Cells(iRow, 2) = .Cells(rng.Row, 2)
               Cells(iRow, 3) = .Cells(rng.Row, 3)
            End If
         End With
      End If
   Next iRow
End Sub