ich habe ein etwas kompliziertes Problem.Und zwar folgendes:
Ich habe 2 Tabellen mit verschiedensten Einträgen (Ca. 20 Spalten). In den tabellen ist die erste spalten entscheiden,im Bezug auf den Vergleich. D.h. ich vergleiche beide Tabellen miteinander wenn in der ersten Spalte jeweils die gleichen Werte vorkommen dann sollen die in Tabelle 3 ergänzt werden. Folgendes Beispiel soll es verdeutlichen
Tabelle 1.
Spalte: a b c d e (usw)
9 text(b) text(C) text(d)text(e)
10 text text text text
11 text text text text
12 text text text text
Tabelle2.
Spalte a b c d e f g
10 text1(c) text(F) text(g)
10 text1 text text
11 text2 text text
11 text2 text text
11 text2 text text
11 text2 text text
D.h. in tabelle 2 kommen nur einträge vor die in tab 1 zwar enthalten sind, aber nur einmal aufgeführt. nun sollen tab3 beide tabellen zusammenfassen. wie folgt:
tabelle3
Spalte a b c d e f g
9 text text text text
10 text text1 text text text text
10 text text1 text text text text
11 text text2 text text text text
11 text text2 text text text text
11 text text2 text text text text
11 text text2 text text text text
12 text text text text
Ich hoffe das es einiger maßen verständlich ist ;)
Es sollen quasi beide Tabellen zusammengefaßt werden, wobei bei dem auftreten von GLeichen Ziffen, die werte aus tab 1 mit der von tab2 in tabelle3 überschrieben werden. Reihenfolge sollm natürlich glecih sein.
Ich hab zwar einen Ansatz:
Sub TabellenVergleich()
Dim i, j As Long
Dim a, b As Long
Sheets("Partslist").Select
i = ActiveSheet.UsedRange.Rows.Count
MsgBox "Zeilen:" & i
Sheets("Tabelle1").Select
j = ActiveSheet.UsedRange.Rows.Count
MsgBox "Zeilen:" & j
For a = 3 To i
For b = 1 To j
If Sheets("Tabelle1").Range("A" & b).Value=_
Sheets("partslist").Range("A" & a).Value Then
Sheets("Tabelle1").Range("A" & b).Select
Selection.Copy
Sheets("Tabelle2").Range("A" & a).Select
ActiveSheets.Paste
End If
Next b
Next a
End Sub
doch haut das nicht so richtig hin ausserdem fehlt sicher noch einiges ^^
Wäre über Eure Hilfe sehr dankbar!!
Gruß Marcus