Seite 1 von 1
Tabellen Werte vergleichen
Verfasst: Sa, 29.08.2009 03:33
von ebill
Hallo alle,
ich habe eine Datei mit 100 Tabellen. In den Tabellen sind immer Einträge von A1-A7.
Ich möchte nun mit Tabelle 1 alle anderen Tabellen vergleichen ob die Werte in den einzelnen Zellen gleich sind.
Stimmt eine Tabelle mit der von Tabelle 1 überein so soll die übereinstimmende Tabelle angezeigt werden.
Wie kann man so etwas lösen ?
Hab schon einiges probiert komme aber nicht weiter.
Danke schon mal
elma
Re: Tabellen Werte vergleichen
Verfasst: Sa, 29.08.2009 08:58
von Karolus
Hallo
Code: Alles auswählen
Sub tabellen_vergleich
odoc = thisComponent
vsheet = odoc.sheets(0)'Tabelle1
for s = 1 to 99 'Schleife über Tabelle2 bis Tabelle100
for z = 0 to 6 'Schleife über Zeile 1 bis 7
gleich = false
if vsheet.getcellbyposition(0,z).value <> odoc.sheets(s).getcellbyposition(0,z).value then
'oder hier ^...).string ..).string
exit for
else
gleich = true
end if
next z
if gleich then
msgbox (odoc.sheets(s).name)
end if
next s
End Sub
Gruß Karo
Re: Tabellen Werte vergleichen
Verfasst: So, 30.08.2009 17:28
von ebill
Hallo Karolus,
vielen Dank für die schnelle Antwort. Das Makro, es funktioniert einfach klasse.
Danke Dir vielmals.
Mir ist noch eingefallen, das ich die Start Tabelle frei eingeben müsste, von der aus alle 100 Tabellen verglichen werden sollen.
Ein Feld, bei der ich die Tabelle eingebe und von dieser Tabelle aus, sollten dann alle 100 Tabellen mit der eingebenen verglichen werden. ( wenn ich z.B: "Tabelle 5" eingebe dann sollten alle 100 Tabellen mit der von Tabelle 5 verglichen werden inkl. Tabelle 5 selbst )
Könnte man so etwas noch in das Makro einfügen ?
Schon mal vielen herzlichen Dank im voraus
ebill
Re: Tabellen Werte vergleichen
Verfasst: So, 30.08.2009 21:02
von Karolus
Re: Tabellen Werte vergleichen
Verfasst: Mi, 02.09.2009 22:52
von ebill
Hi Karolus,
danke für die "links".
Da werde ich mal schauen ob ich das hin bekomme.
Danke nochmals
Gruß
ebill