Hallo Excelexperten,
Ich habe folgendes Problem. Ich habe zwei Exceltabellen (eine zum sammeln von Daten und die zweite zum durchführen von Berechnungen basierend auf den Daten der ersten Exceltabelle) die mit einander verglichen und die Unterschiede markiert und kopiert werden sollen.
In der Datensammlungsdatei ist schon ein Makro eingepflegt welches die Daten automatisch hereinlädt. Ich habe es auch schon hinbekommen das die Daten automatisch von der Datensammlungsdatei in die Berechnungsdatei kopiert werden. Aber halt nur so, dass ich eine gesamte Spalte automatisch markieren lasse und dann kopiere und nicht wie von mir gedacht nur die Änderungen, welche durch das hereinladen der Daten entstanden sind.
Es gibt ja bei VBA die Methode ColumnDifferences, aber ich habe es nicht hinbekommen die bei zwei unterschiedlichen Exceltabellen zum laufen zu bekommen. Das ist der Makrocode den ich entwickelt habe. Bis auf den Vergleich funktioniert das auch super. Der Vergleich muss auch an der Stelle geschehen damit die Makroschritte eingehalten werden. Ich hab den Bereich kursiv gemacht damit ihr euch zurechtfindet.
Workbooks.Open Filename:= _
"\\.....\Daten.xls"
Worksheets("BE").Activate
If Range("B5") = "" Then
Range("B5").Select
Else
Range("B5").End(xlDown).Offset(1, 0).Select
End If
Application.Run _
"Daten.xls!GetValues"
Windows("Berechnung.xls").Activate
Set A5 = Worksheets("BE").Colums("A").ColumnDifferences( _
Comparison:=ActivateSheet.Range("A5"))
A5.Select
Selection.Copy
Windows("Berechnungen.xls").Activate
Range("A5").Select
ActiveSheet.Paste
Windows("Daten.xls").Activate
Columns("B:F").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Berechnungen.xls").Activate
Columns("B:F").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks("Daten.xls").Close SaveChanges:=True
End Sub
Schon mal im Voraus vielen Dank für eure Hilfe.
Mit freundlichen Grüßen
Matthias