Ich versuche gerade zwei Arbeitsmappen mittels VBA abzugleichen. In der ersten Mappe lasse ich per Makro dutzende Excel Dateien auswerten für ein Jahresergebnis und in der zweiten Mappe sollen diese Ergebnisse dann mit den Ergebnissen von den letzten Jahren verglichen werden. Das ganze sieht so aus, dass ich in Spalte A einen Mitgliedscode habe anhand dessen ich die zwei Mappen vergleichen möchte. Es kann nämlich sein, dass in Mappe 2 ein Mitglied nicht vorhanden ist und somit dort erst angelegt werden muss.
Wenn also Spalte A von Mappe 2 die gleiche Nummer enthaltet wie Spalte A von Mappe 1, dann sollen Werte aus den Spalten B und C aus Mappe 1 in die Spalten B und F von Mappe 2 eingetragen werden Wenn die Nummer aus Spalte A ungleich ist, dann soll in Mappe 2 eine weitere Zeile eingefügt werden und die Nummer in Spalte A und dann wieder B und C aus Mappe 1 in B und F in Mappe 2 eingetragen werden.
bisher hab ich das versucht so zu lösen, was leider nicht funktionierte:
Sub copy()
Dim i As Integer
i = 1
Workbooks.Open Filename:="C:\Users\Verein\Desktop\test2.xlsm", ReadOnly:=True
Do While ThisWorkbook.Sheets("Tabelle1").Cells(i, 1).Value ""
If ThisWorkbook.Sheets("Tabelle1").Cells(i, 1) = ActiveWorkbook.Sheets("Tabelle1").Cells(i, _
_
_
_
_
1) Then
ThisWorkbook.Sheets("Tabelle1").Cells(i, 2) = ActiveWorkbook.Sheets("Tabelle1").Cells(i, _
_
_
_
_
2)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 6) = ActiveWorkbook.Sheets("Tabelle1").Cells(i, _
_
_
_
_
3)
Else
Worksheets("Tabelle1").Rows.Insert
ThisWorkbook.Sheets("Tabelle1").Cells(i, 1) = ActiveWorkbook.Sheets("Tabelle1").Cells(i, _
_
_
_
_
1)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 2) = ActiveWorkbook.Sheets("Tabelle1").Cells(i, _
_
_
_
_
2)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 6) = ActiveWorkbook.Sheets("Tabelle1").Cells(i, _
_
_
_
_
3)
End If
i = i + 1
Loop
End Sub
Vielen Dank für jede Hilfe.