Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte vergleichen und übertragen

Gruppe

Vergleich

Problem

Die Werte in Spalte A von Tabelle1 sollen mit Spalte A von Tabelle2 verglichen werden. Bei Übereinstimmung sind die Werte aus den den Spalten A und D aus Tabelle2 in Tabelle3 einzutragen.

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

StandardModule: Modul1

Sub Vergleichen()
   Dim vRow As Variant
   Dim lRow As Long, lRowT As Long
   Dim bln As Boolean
   bln = Application.DisplayStatusBar
   Application.DisplayStatusBar = True
   lRow = 1
   Do Until IsEmpty(Cells(lRow, 1))
      vRow = Application.Match(Cells(lRow, 1).Value, Worksheets("Tabelle2").Columns(1), 0)
      If Not IsError(vRow) Then
         lRowT = lRowT + 1
         Worksheets("Tabelle3").Cells(lRowT, 1).Value = Cells(lRow, 1).Value
         Worksheets("Tabelle3").Cells(lRowT, 2).Value = Worksheets("Tabelle2").Cells(vRow, 4).Value
      End If
      lRow = lRow + 1
   Loop
   Application.DisplayStatusBar = bln
   Application.StatusBar = False
   Worksheets("Tabelle3").Activate
End Sub