Zwei Tabellen vergleichen

Hallo zusammen,
ich habe mal wieder ein Problem.
Ich bekomme von u.g. Code einen Indexfehler.
Ich finde den Fehler nicht. Kann mir jemand helfen ? Oder gibts ne andere Lösung.


Sub Tab1_zu_Tab2_vergleichen2()
'vergleicht Alphanumerische Werte Tab1, Sp.B mit Alphanumerieschewerte Tab2, Sp.B
'bei Übereinstimmung Tab1 Sp.C nach Tab2 Sp.C kopieren.
Dim vntX, vntY, lngX As Long, lngY As Long, intCol As Integer
Dim Target As Long
vntX = Sheets("Tabelle2").Range("B2").CurrentRegion
vntY = Sheets("Tabelle1").Range("B2").CurrentRegion
For lngX = 2 To UBound(vntX, 1)
For lngY = 2 To UBound(vntY, 1)
If vntX(lngX, 2) = vntY(lngY, 2) And vntX(lngX, 3) = "" Then 'vergleicht Tab
For intCol = 3 To 3
vntX(lngX, intCol) = vntY(lngY, intCol)
Next
End If
Next lngY
Next lngX
Sheets("Tabelle2").Range("B2").CurrentRegion = vntX
End Sub

Mit freundlichen Grüßen
Manfred/ LÖ

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Tab1_zu_Tab2_vergleichen2() 'vergleicht Alphanumerische Werte Tab1, Sp.B mit Alphanumerieschewerte Tab2, Sp.B 'bei Übereinstimmung Tab1 Sp.C nach Tab2 Sp.C kopieren. Dim vntX, vntY, lngX As Long, lngY As Long, intCol As Integer Dim Target As Long vntX = Sheets("Tabelle2").Range("A7").CurrentRegion vntY = Sheets("Tabelle1").Range("A7").CurrentRegion For lngX = 2 To UBound(vntX, 1) For lngY = 2 To UBound(vntY, 1) If vntX(lngX, 2) = vntY(lngY, 2) And vntX(lngX, 3) = "" Then 'vergleicht Tab For intCol = 3 To 3 vntX(lngX, intCol) = vntY(lngY, intCol) Next End If Next lngY Next lngX Sheets("Tabelle2").Range("A7").CurrentRegion = vntX End Sub

Hallo Manfred,
was hälst du von der Variante?

Option Explicit
'
'   das nachfolgende Makro vergleicht alphanummerische Werte Tab1, Sp.B mit
'   alphanummerischen Werten Tab2, Sp.B
'   bei Übereinstimmung Tab1 Sp.C nach Tab2 Sp.C kopieren.
  '
Sub Tab1_zu_Tab2_vergleichen2()
Dim WkSh    As Worksheet
Dim vntX    As Variant
Dim vntY    As Variant
Dim lngX    As Long
Dim lngY    As Long
Dim intCol  As Integer
   vntX = Sheets("Tabelle2").Range("A7").CurrentRegion
   vntY = Sheets("Tabelle1").Range("A7").CurrentRegion
   For lngX = 2 To UBound(vntX, 1)
      For lngY = 2 To UBound(vntY, 1)
         If vntX(lngX, 2) = vntY(lngY, 2) And vntX(lngX, 3) = "" Then 'vergleicht Tab
            For intCol = 3 To 3
               vntX(lngX, intCol) = vntY(lngY, intCol)
            Next
         End If
      Next lngY
   Next lngX
   Set WkSh = ThisWorkbook.Worksheets("Tabelle2") ' der einfacheren Schreibweise wegen
   WkSh.Range(WkSh.Cells(7, 1), WkSh.Cells(UBound(vntX, 1) + 6, UBound(vntX, 2))) = vntX
End Sub

Gruß Peter

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwei Tabellen vergleichen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread