2 tabellen vergleichen und abstimmen

hallo forum,
ich muß nochmal nachfragen, weil u.u. meine vorher formulierte frage nicht ganz klar war:
ich habe 2 tabellen, die ich miteinander abgleichen möchte.
in der einen stehen viele 1000 produkte mit z.b. art.nr., bezeichnung, abmessung, etc.
in der anderen stehen dieselben produkte kumuliert und geordnet.
die aufgabe ist nun, automatisch einen abgleich hinzukriegen: die datensätze, die in der geordneten tabelle noch nicht enthalten sind, sollen automatisch unten dran gesetzt werden.
hilfe: wie mache ich das? ich kann zwar programmieren, hab aber von VBA keine ahnung.
mit formeln bin ich soweit, daß ich schon erkannt und markiert habe, welche datensätze noch nicht vorhanden sind...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub abgleich() Dim Ws1 As Worksheet, Ws2 As Worksheet, Suchbereich As Range Dim Ws1Lz As Long, Ws2Lz As Long, C As Range Set Ws1 = Worksheets("Tabelle1") 'unsortierte Tabelle Set Ws2 = Worksheets("Tabelle2") 'sortierte Tabelle Set Suchbereich = Ws2.Range("A:A") Ws1Lz = Ws1.Range("A65536").End(xlUp).Row Ws2Lz = Ws2.Range("A65536").End(xlUp).Row + 1 For Each C In Ws1.Range("A1:A" & Ws1Lz) If Suchbereich.Find(C) Is Nothing Then Ws2.Rows(Ws2Lz).Value = Ws1.Rows(C.Row).Value Ws2Lz = Ws2Lz + 1 End If Next C End Sub

Hallo Boris,
danke für deine lösung. leider funzt sie nicht. ich weiss jetzt nicht, ob ich was falsch gemacht hab, deswegen poste ich hier mal den angepaßten code:
ich geh doch recht in der annahme, daß der code in die Ws2 reinsoll, also die tabelle, die erweitert werden soll und schon sortiert ist.
Option Explicit '<-- kannst du mir bitte sagen, was genau eine option macht?


Sub abgleich()
Dim Ws1 As Worksheet, Ws2 As Worksheet, Suchbereich As Range
Dim Ws1Lz As Long, Ws2Lz As Long, C As Range
Set Ws1 = Worksheets("'Auswertung.xls'!Art-Nr. zusammengefasst")   '<-- könnte hier ein fehler liegen?
Set Ws2 = Worksheets("Entry by Item Invoiced Currency")
Set Suchbereich = Ws2.Range("E:E")                           '<-- meine vergleichsdaten sind in spalte e in der sortierten, in spalte a in der unsortierten tabelle
Ws1Lz = Ws1.Range("A65536").End(xlUp).Row
Ws2Lz = Ws2.Range("E65536").End(xlUp).Row + 1
For Each C In Ws1.Range("A1:A" & Ws1Lz)
If Suchbereich.Find(C) Is Nothing Then
MsgBox "HAB EINEN"   '<-- war zu test, obs überhaupt geht
Ws2.Rows(Ws2Lz).Value = Ws1.Rows(C.Row).Value
Ws2Lz = Ws2Lz + 1
End If
Next C
End Sub

wenn ich das ablaufen lassen will, bekomme ich einen fehler runtime-error 9: subscript out of range. dmait kann ich leider nix anfangen :-(
danke schonmal peter

Sub abgleich() Dim Wb1 As Workbook, Wb2 As Workbook Dim Ws1 As Worksheet, Ws2 As Worksheet, Suchbereich As Range Dim Ws1Lz As Long, Ws2Lz As Long, C As Range Set Wb1 = Workbooks("Auswertung.xls") 'unsortierte Mappe Set Wb2 = Workbooks("Entry.xls") 'sortierte Mappe Set Ws1 = Wb1.Worksheets("Tabelle1") 'Tabellenblatt unsortierte Mappe Set Ws2 = Wb2.Worksheets("Tabelle1") 'Tabellenblatt sortierte Mappe Set Suchbereich = Ws2.Range("A:A") 'Bereich in sortierter Mappe Ws1Lz = Ws1.Range("A65536").End(xlUp).Row Ws2Lz = Ws2.Range("A65536").End(xlUp).Row + 1 For Each C In Ws1.Range("A1:A" & Ws1Lz) If Suchbereich.Find(C) Is Nothing Then Ws2.Rows(Ws2Lz).Value = Ws1.Rows(C.Row).Value Ws2Lz = Ws2Lz + 1 End If Next C End Sub

Sub abgleich() Dim Ws1 As Worksheet, Ws2 As Worksheet Dim X As Long, Ws1Lz As Long, Ws2Lz As Long Set Ws1 = Worksheets("Tabelle1") 'unsortierte Tabelle Set Ws2 = Worksheets("Tabelle2") 'sortierte Tabelle Ws1Lz = Ws1.Range("C65536").End(xlUp).Row 'die Spalte mit der ZÄHLENWENN-Formel - hier: C For X = 1 To Ws1Lz If Ws1.Range("C" & X) = 0 Then 'wieder die Spalte mit der ZÄHLENWENN-Formel Ws2Lz = Ws2.Range("A65536").End(xlUp).Row + 1 'Spalte mit den Artikeln Ws2.Rows(Ws2Lz).Value = Ws1.Rows(X).Value End If Next X End Sub

Beliebteste Forumthreads (12 Monate)

2 tabellen vergleichen und abstimmen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 tabellen vergleichen und abstimmen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread