Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mal wieder Tabelle

Mal wieder Tabelle
25.05.2004 09:27:37
Rico
Hey Leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mal wieder Tabelle
25.05.2004 10:05:27
Rico
Kann bitte jemand weiterhelfen ..... ich mache (fast) alles dafür .... ;-)
Doppelposting - wurde oben beantwortet nT
Andreas
Doppelposting - wurde oben beantwortet nT
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige