AW: Tabellennamen zweier Arbeitsmappen vergleichen
13.06.2016 21:29:14
Anton
Hallo Rudi,
bitte entschuldige die späte Rückmeldung. Hat geklappt, danke!
Ich würde gerne den Vergleich dynamisch gestalten, aber ich komme nicht drauf. D.h. alle Tabellenblätter in mappe1 sollen mit den Tabellenblättern in mappe2 verglichen werden. Bis zum dyn. Kopieren der Zellen bin ich gekommen:
Sub aaaa()
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim i As Integer
On Error Resume Next
Set wks = Workbooks("arbeitsmappe65").Sheets("xyz")
Set wks1 = Workbooks("arbeitsmappe66").Sheets(1)
On Error GoTo 0
If Not wks Is Nothing Then
For i = 3 To wks1.Cells(Rows.Count, 2).End(xlUp).Row
wks1.Range(wks1.Cells(i, 1), wks1.Cells(i, 3)).Copy wks.Range(wks.Cells(i, 1), wks.Cells(i, _
3))
Next i
End If
End Sub
Danke für Deinen Rat und VG,
Anton