Zellinhalte vergleichen

[linus]

Hallo.

ich möchte gerne den Inhalt von zwei Zellen vergleichen, die ich über "getcellbyposition" anwähle. z.B.

If ..=.. then....

Kann mir jemand helfen?

Gruß Linus

[Toxitom]

Hey Linus,

wieviel Programmierahnung hast du schon? Mit dieser Kenntnis wäre eine Hilfe einfacher.

Das prinzipielle Vorgehen:
Inhalte der Zellen der Tabelle1 A1 und A2 (beides Zahlen) sollen mit einander verglichen werden:

Code: Alles auswählen

sub vergleich
   oDoc=thisComponent
   oSheet=oDoc..sheets.getByName("Tabelle1")
   iWert1=oSheet.getCellRangeByName("A1").value
   iWert2=oSheet.getCellRangeByName("A2").value
   if iWert1=iWert2 then
          msgbox "A1 und A2 sind gleich"
   else 
         msgbox "A1 und A2 sind ungleich"
    end if
end sub

Der Code sollte funktionieren, wenngleich er auf das nötigste reduziert ist. Du solltest entsprechende Fehlerroutinen und Abfragen mit einbauen.

Gruss
Thomas

[linus]

Hallo,

danke für die Hilfe. Die Sache funktioniert jetzt.

Ich bin kein Programmierexperte. Aber mit Excel-VBA habe ich alle programmiertechnischen Probleme in den Griff bekommen allein mit der Untersützung des "intellegenten" Editors, Beispielen in der Hilfe und einer Makroaufzeichnung, bei der die aufgezeichneten Befehle hinterher nachvollziehbar sind.

Mit der Programmierung in openoffice habe ich noch enorme Schwierigkeiten.
Das ist leider der einzige Nachteil von openoffice.

Mein Programm habe ich zuerst in Excel-VBA programmiert, wo alles nach ein paar Stunden gelaufen ist. Die Umstetzung des existierenden Programms nach openoffice nimmt bereits ein vielfaches der Zeit in Anspruch.

Aber es geht dem Ende entgegen.
Sicher habe ich allerdings noch einige Fragen an das Forum.

Danke

Gruß Linus

[Jörg]

Hallo, zum u.g. Code habe ich eine Frage.
Zielstellung:
Ich möchte Zellbereich A1:A4000 in Tabelle1 mit Zelle A1 in Tabelle2 vergleichen.
Wenn eine Zelle aus dem Bereich A1:A4000(Tabelle1)=A1(Tabelle2)
dann überschreibe A():J() in Tabelle1 mit A1:J1 aus Tabelle2.
Das Kopieren und einfügen krieg ich bestimmt mit dem Recorder hin, wichtig ist halt die
Bedingung.
Danke für die Hilfe im Voraus. Schönes WE
Jörg

Code: Alles auswählen

sub vergleich
   oDoc=thisComponent
   oSheet=oDoc..sheets.getByName("Tabelle1")
   iWert1=oSheet.getCellRangeByName("A1").value
   iWert2=oSheet.getCellRangeByName("A2").value
   if iWert1=iWert2 then
          msgbox "A1 und A2 sind gleich"
   else
         msgbox "A1 und A2 sind ungleich"
    end if
end sub