Mal wieder Tabelle
25.05.2004 09:27:37
Rico
komme mit meiner Tabelle mal wieder nicht weiter ! Wer kann helfen ?
Also :
2 Tabellen , gleiche Spaltenanzahl(27), unterschiedliche Zeilenanzahl
Datensätze wurden entweder verändert oder sind neu hinzugekommen oder weggefallen. Folgender code funktioniert nur wenn die datensätze an gleicher Stelle stehen würden, leider sind dazwischen datensätze dazugekommen, dh. ich müsste jede zeile von Tabelle 1 mit Tabelle2 vergleichen(und andersrum) um herauszufinden welche Datensätze weggefallen sind, welche dazugekommen sind und welche verändert worden sind, und die veränderten jeweils an der geänderten stelle rot markieren und alles in eine 3. Tabelle oder auch eine 4.! WER BEKOMMT DAS HIN ? ich nicht .... :-(
Sub Vergleich4()
Dim I As Integer
Dim J As Integer
For I = 2 To Worksheets("DialogStücklisteAlt").Cells.SpecialCells (xlLastCell).Row
For J = 1 To Cells(I, Columns.Count).End(xlToLeft).Column
If Worksheets("DialogStücklisteAlt").Cells(I, J) <> Worksheets ("DialogStücklisteNeu").Cells(I, J) Then
Worksheets("DialogStücklisteNeu").Cells(I, J).Interior.ColorIndex = 3
End If
Next J
Next I
End Sub
Sorry wegen dem gehäxel des codes ... hab ihn nicht anders hier rein bekommen !
Danke Claudio
Anzeige