2 Tabellen vergleichen und Werte übergeben

[MarkoR]

Hallo,

ich möchte 2 Tabellen vergleichen (also nicht 2 Tabellenblätter)
jetzt weiss ich nicht wie ich die zwei geöffneten Tabellen handlen muss.
Es sollen außerdem nach Werten in der einen Datei gesucht und like SVERWEIS an die 2. Übergeben werden.
Ich bin Anfänger und mach das hier seit ca 4 Tagen...

Auszug:
sub oeffnen
dim test as string
dim zahl as string
dim desktop as string
dim url as string
dim oDocument1 as object
dim oDocument2 as object
dim tabelle1 as object
dim tabelle2 as object
dim zelle1 as string
dim zelle2 as string
dim mystring1 as string
dim mystring2 as string

test = ("test.ods")
zahl = ("zahl.ods")
desktop = ("C:\Users\Mega-PC\Desktop\")

url=converttourl(desktop + test )
dim myFileProp() as new com.sun.star.beans.PropertyValue
oDocument1 = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )

url=converttourl(desktop + zahl )
dim myFileProp2() as new com.sun.star.beans.PropertyValue
oDocument2 = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp2() )

tabelle1 = oDocument1.sheets.getbyname ("Tabelle1")
tabelle2 = oDocument2.sheets.getbyname ("Zahl1")

zelle1 = mysheet.getCellByPosition (0,0)
zelle2 = mysheet.getCellByPosition (0,0)

myString = zelle1.string
mystring2 = zelle2.string

zelle2.string=myString + mystring2

Wie mache ich weiter um die zwei zu vergleichen?
Wie verwende ich die zwei Dateien?


(Ja, ich habe schon nach Hinweisen gesucht)

Danke

[MarkoR]

Ich bin mittlerweile bei:

Code: Alles auswählen

sub oeffnen
	dim buch as string
	dim kasse as string
	dim desktop as string
	dim url as string
	dim BuchDoc
	dim KasseDoc
	dim Buchtabelle as object
	dim BKassetabelle as object
	dim Buchzelle
	dim Kassezelle
	dim Buchmystring
	dim Kassemystring
	dim Buchmysheet
	dim Kassemysheet
	dim bz as long, bs as long, bMax as long
	dim kz as long, ks as long, kMax as long
		
	Buch = ("buch.ods")
	Kasse = ("kasse.ods")
	desktop = ("C:\Users\Mega-PC\Desktop\")
	
	
	
	url=converttourl(desktop + buch )
    dim myFileProp() as new com.sun.star.beans.PropertyValue
    BuchDoc = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )
    
   
	url=converttourl(desktop + kasse )
    dim myFileProp2() as new com.sun.star.beans.PropertyValue
    KasseDoc = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp2() )

	
	bMax = (10)
	kMax = (100)
	bz = (0)
	bs = (0)
	kz = (0)
	ks = (1)
	 
	for bz = 0 TO bMAX
		buchmysheet = buchDoc.sheets(0)
		buchzelle = buchmysheet.getCellByPosition(bz, bs)
		
			do	
				kz = kz + 1
				Kassemysheet = KasseDoc.sheets(0)
				kassezelle = kassemysheet.getCellByPosition(ks, kz)
				'if buchzelle = kassezelle then exit do
						
			loop while buchzelle = kassezelle
			ks = ks - 1
			kassezelle = kassemysheet.getCellByPosition(ks, kz)
			Kassemysheet = KasseDoc.sheets(0)
			kassemystring = kassezelle.string
			bs = bs + 1
			buchmysheet = buchDoc.sheets(0)
			buchzelle = buchmysheet.getCellByPosition(bs, bz)
			buchmystring = buchzelle.string
			
			buchzelle.string = kassemystring + (" ") + buchmystring
	
	next bz


end sub

angelangt und man kann erkennen worauf ich hinaus will
bei loop while bekomme ich ne Fehlermeldung und ich raff nicht wieso

Wer kann helfen

Marko

[MarkoR]

Korrektur:

oop until buchzelle = kassezelle

trotzdem "falscher Wert für Eigenschaft" - Warum?