Tabellen vergleichen
25.05.2005 09:10:54
Michael
ich habe aus der Recherche folgenden Code:
Dim wks As Worksheet
Dim rngA As Range, rngB As Range
Dim iRow As Integer, iCounter As Integer, iCol As Integer
Set rngA = Worksheets("eins").Range("C8").CurrentRegion
Set rngB = Worksheets("zwei").Range("C8").CurrentRegion
Set wks = Worksheets("drei")
iCol = rngA.Columns.Count
If rngB.Columns.Count > iCol Then
iCol = rngB.Columns.Count
End If
For iCounter = 1 To iCol
wks.Cells(1, iCounter) = "Spalte" & iCounter 'geändert
Next iCounter
wks.Rows(1).Font.Bold = True
rngA.Range("C8").CurrentRegion.Copy wks.Range("C8") 'stimmt das ?
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
rngB.Range("C8").CurrentRegion.Copy wks.Cells(iRow, 1)
wks.Range("A1").CurrentRegion.AdvancedFilter action:=xlFilterCopy, _
copytorange:=wks.Cells(1, wks.UsedRange.Columns.Count + 1), _
unique:=True
wks.Range(wks.Cells(1, 1), wks.Cells(1, iCol)). _
EntireColumn.Delete
wks.Columns.AutoFit
Ich möchte damit in den Blättern "eins" und "zwei" die Spalten D vergleichen,
und die Spalten B : M nach Blatt "drei" kopieren.
Es erscheinen aber nur die Spalten G und H in Blatt drei.
Ich schaffe es einfach nicht, den Code so umzuschreiben, dass dies ereicht wird.
Kann mir jemand sagen was ich ändern muß?
Vielen Dank im voraus
Michael