Da dies mein erster post ist eine kurze vorstellung meinerseits.
Ich binn derzeit (noch) Student un binn jetzt zum ersten mal mit etwas aufwändigeren aufgaben in OOo Calc konfrontiert worden.
Da kam mir gleich die idee versuch es doch mal mit makros.^^
Naja bis jetzt klapt es nicht wirklich.
zum Problem:
ich habe zwei Tabellen in denen jeweils ca 1700 bis 1800 zeilen existieren.
Ich soll bei allen werten aus tabelle A überprüfen ob sie in tabelle B enthalten sind. Wenn ja beide Einträge Grün hinterlegen (inTabelle a und B) wenn nein eintrag in tabelle A rot hinterlegen.
Ich hab jetzt ein par Stunden im internet gelesen, bin bis jetzt aber nicht wirklich weitergekommen. Wobei ich hauptsächlich an der Syntax und mangelndem wissen scheitere. (und etwas unter zeit druck stehe^^).
Das ist mein bisheriger coder der so aber nicht funktioniert. ware echt hilfreich wenn mir jemand dabei heäfenkönnte das zum laufen zu bringen.
Code: Alles auswählen
sub test2
GlobalScope.BasicLibraries.LoadLibrary("Tools")
rem ----------------------------------------------------------------------
rem define variables
dim i as integer
dim j as integer
dim finish as integer
dim value1 AS STRING
dim value2 AS STRING
dim myDoc as object
dim mySheet1 as object
dim mySheet2 as object
dim mycell1 as object
dim mycell2 as object
rem------------------------------------------------------------------------
rem initialisierung
myDoc = thisComponent
mySheet1 = myDoc.sheets.getByIndex(0)
mySheet2 = myDoc.sheets.getByIndex(1)
rem------------------------------------------------------------------------
rem START MACRO
For i = 0 to 1868 step 1 rem Ersteschleife für sheet 1
IF i >1868 THEN EXIT FOR
rem vergleichs wert spalte D lesen asu tabelle 1
mycell1 = mySheet1.getCellByPosition(i,3)
value1 = mycell1.string
For j = 0 to 1711 step 1
if j >1711 then
rem rot färgebn
mycell1.CellBackColor= 16711680
exit for
end if
rem vergleichs wert spalte D lesen aus tabelle 2
mycell2 = mySheet2.getCellByPosition(j,4)
value2 = mycell2.string
if value1 = value2 then
rem grün färben
mycell2.CellBackColor=32768
mycell1.CellBackColor=32768
exit for
end if
next
NEXT
end sub
MfG BabCom