Tabellen Werte vergleichen

[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

[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

[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

[Karolus]

Hallo

Könnte man so etwas noch in das Makro einfügen ?

Ja, kann man!
http://www.dannenhoefer.de/faqstarbasic ... l#Zweig200
http://www.dannenhoefer.de/faqstarbasic ... l#Zweig174

Gruß Karo

[ebill]

Hi Karolus,

danke für die "links".

Da werde ich mal schauen ob ich das hin bekomme.

Danke nochmals

Gruß

ebill