VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte vergleichen und übertragen

Gruppe

Allgemein

Bereich

Vergleich

Thema

Werte vergleichen und übertragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich