Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Begriffe in zweiter Tabelle suchen und Werte anfügen

Gruppe

Suchen

Problem

Wie kann ich die Zeichenfolgen aus Spalte A der aktiven Tabelle in Spalte A einer zweiten Tabelle suchen und rechts neben den Fundstellen die Werte aus dem aktiven Blatt eintragen?

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

StandardModule: basMain

Sub VergleichenKopieren()
   Dim rng As Range
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Set rng = Worksheets("Tabelle2").Columns(1).Find( _
         what:=Cells(iRow, 1), lookat:=xlWhole, LookIn:=xlValues)
      If Not rng Is Nothing Then
         Range(rng.Offset(0, 1), rng.Offset(0, 3)).Value = _
            Range(Cells(iRow, 2), Cells(iRow, 4)).Value
      End If
      iRow = iRow + 1
   Loop
End Sub