frage zu Excel

[eragon028]

hallo
ich hab eine frage
kann ich in Excel 2007 tabelle 1 und 2 verkleichen und die anzeigen lssen was in tabelle 2 anderster ist als in tabelle 1

danke im voraus
eragon028

 

[schmidt206]

Verkleichen kannst du da sicherlich nichts. Vergleichen schon eher. Geht bestimmt irgendwie. Kennst dich mit VBA nicht aus, nehm ich an?

 

[eragon028]

was ist VBA
ne auskenn tu ich mich da ned so wirklich
kannst du mir helfen

 

[Mr. Snoot]

Klicke in Excel oben links auf den runden Button und wählen Excel-Optionen | Häufig verwendet | Entwicklerregisterkarte in der Multifunktionsleiste anzeigen.



Wähle dann oben im Menü Entwicklertools | Visual Basic, doppelklicke auf Diese Arbeitsmappe und es erscheint ein neues leeres Fenster.



Hier fügst du diesen Code ein:

Sub Tabellen_vergleichen()
Dim verg1(2500, 60), verg2(2500, 60), mer(2500), titel(60)
'Tabelle 1 einlesen
Worksheets("Tabelle1").Activate
 
y = 1
Do While Cells(1, y) <> ""
titel(y) = Cells(1, y)
y = y + 1
Loop
For r = 1 To y - 1
z = 1
Do While Cells(z, 1) <> ""
verg1(z, r) = Cells(z, r)
z = z + 1
Loop
Next r
 
'Tabelle 2 einlesen
Worksheets("Tabelle2").Activate
 
yy = 1
Do While Cells(1, yy) <> ""
yy = yy + 1
Loop
For r = 1 To yy - 1
z = 1
Do While Cells(z, 1) <> ""
verg2(z, r) = Cells(z, r)
z = z + 1
Loop
Next r
 
'Änderungen kennzeichnen
For r = 1 To z - 1
For s = 1 To yy - 1
If verg1(r, s) <> verg2(r, s) Then
mer(r) = r
Cells(r, s).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Interior.ColorIndex = 3
End If
Next s
Next r
Worksheets("Tabelle3").Activate
For l = 1 To yy - 1
Cells(1, l) = titel(l)
Next l
zz = 2
For m = 1 To z - 1
If m = mer(m) Then
For n = 1 To yy - 1
Cells(zz, n) = verg2(m, n)
Next n
zz = zz + 1
End If
Next m
End Sub

(http://www.ms-office-forum.net/forum/showpost.php?p=214774&postcount=5)
Im Code musst du ggf. Änderungen vornehmen, dort heißt es 3 mal Worksheets("TabelleX").Activate. Hier müssen die Namen der zu vergleichenden Tabellenblätter rein ("Tabelle1" und "Tabelle2") sowie die dritte Tabelle ("Tabelle3"), in der die Unterschiede aufgelistet werden.

Schließe das Visual Basic Fenster, so dass du wieder bei deinem Tabellenblatt bist und wähle diesmal aus dem Menü Entwicklertools | Makros. Hier taucht jetzt der Eintrag Diese Arbeitsmappe.Tabellen_vergleichen auf, wähle diesen an und klicke auf Ausführen.



Die Unterschiede sind in Tabelle2 nun markiert.

 

[eragon028]

@Gauder ok danke für die mühe die du dir gemacht hast

 

[moquai]

Hallo,

Deine Anfrage wurde zwar durch Gauder gelöst, aber wenn es mal universeller sein soll.