Hallo liebe Leute,
bin momentan bei einer größeren Firma als Praktikant und muss im Zuge dessen jede menge Excel tabellen bearbeiten. Bekomme 2 Tabellen eine ältere, eine neuere version und muss schauen was sich genau geändert hat und das markieren. Da ich leider noch jede Menge anderer AUfgaben habe und keine Zeit mich größer damit zu beschäftigen habe ich bislang nur eine patch-work lösung.
-------------------------------------------------------------------------------------------
Option Explicit
Private Sub vergleich()
Dim i As Integer, j As Integer, n As Integer
Dim wsA As Worksheet, wsB As Worksheet
Dim alast As Long, blast As Long
Dim arrA As Variant, arrB As Variant
Dim column As Integer, col1 As Integer, col2 As Integer
Set wsA = Worksheets("tabelle1")
Set wsB = Worksheets("tabelle2")
alast = wsA.Cells(Rows.Count, 1).End(xlUp).Row
blast = wsB.Cells(Rows.Count, 1).End(xlUp).Row
column = wsA.UsedRange.Columns.Count
arrA = wsA.Range(wsA.Cells(1, 1), wsA.Cells(830, column))
arrB = wsB.Range(wsB.Cells(1, 1), wsB.Cells(830, column))
For n = 1 To column
For i = LBound(arrA) To UBound(arrA)
If arrA(i, n) <> arrB(i, n) Then
wsA.Cells(i, n).Font.ColorIndex = 3
wsA.Rows(i).Interior.ColorIndex = 35
End If
Next i
Next n
End Sub
-----------------------------------------------------------------------------------------
das bedeutet viel kopieren und so weiter, und da ich mich auch nicht so gut auskenne ist es mir noch nicht gelungen das zu verbessern. daher wollte ich schaun ob jemand mir helfen könnte.
stelle mir das ungefähr so vor:
idealerweise als userform, in der man Datei1-tabelle auswählt, dann Datei2-tablle auswählt, Datei1-tabelle kopiert in neue Mappe dort dann Änderungen zu Datei2-tabelle markieren.
außerdem wäre es gut wenn überprüft werden kann ob zeilen eingefügt wurden, weil sonst ja das ganze nach unten hin mit zellenüberprüfung stimmt, was bis jetzt noch mit viel handarbeit verbunden war. aber mir ist dazu beim besten willen keine praktikable lösung eingefallen.
ALSO bin für jede Hilfe, auch Teil- aber natürlich gerne auch Gesamthilfe dankbar.
mfg