Benachbarte Zelle

[rud0lf]

Guten Tag!

Bin gerade am schreiben eines Makros. Es handelt sich um eine For Schleife die mithilfe zweier Variablen eine Spalte auswerten soll.

Hier ein kleiner Auszug aus dem Makro: (die Wörter in den [] Klammer sind die Stellen bei denen ich planlos bin)

For i = 1 to 65536
If [erster Datensatz der Spalte A, also A2] = "" Then Exit For

If [erster Datensatz von Spalte A, also A2]von Then
[Zeile neben dem Datensatz, also B2] = "ja"
Else
[Zeile neben dem Datensatz, also B2]= "nein"
End If
[Der Cursor soll um eins nach unten springen und den nächsten Datensatz auswerten also A/B3, A/B4, ....)
Next

Folgendes Problem:

Die Spalte DATUM (A) enthält über 900 Datensätze von 200711 bis 200812. Mithilfe der For-Schleife will ich nun auswerten ob jeder einzelne Datensatz ein gewisses Kriterium erfüllt ( in diesem Fall ob es Größer gleich "von" ist). Wenn dies zutrifft soll neben dem Datensatz "ja" stehen wenn nicht "nein". In Excel geht das einfach da ich mit ActiveCell(1, 0) ganz bequem die benachbarte Zelle auswählen kann und in diese dann das Ergebnis einfügen kann. In OpenOffice funktioniert das nicht so einfach.
Wäre echt schön wenn mir jemand helfen könnte!

mfg Rudolf

[Karolus]

Hallo Rudolf
Falls 'von' eine Wertvariable ist ? -etwa so:

Code: Alles auswählen

odoc = thisComponent
osheet = odoc.sheets(0) '1.Tabellenblatt ? ggf. anpassen
for i = 1 to 65536
if osheet.getcellbyposition(0,i).string = "" then
exit for
end if
if osheet.getcellbyposition(0,i).value >= von then
osheet.getcellbyposition(1,i).string = "ja"
else
osheet.getcellbyposition(1,i).string = "nein"
end if
next i

Gruß Karo

[rud0lf]

Danke für die schnelle Antwort, Karo!

Dein Makro funktioniert genauso wie ich es wollte.

Vielen, vielen Dank hab mich mit dem Problem schon lange herumgeschlagen

mfg Rudolf

[rud0lf]

Eine Frage hab ich noch:

Ist es möglich in der If-Bedingung zwei Bedingungen anzugeben,
z.B.:
If xyz >10 and < 20

Habs mit and probiert funktioniert jedoch nicht.

mfg Rudolf

[rud0lf]

Ok hat sich soeben erledigt!

mfg Rudolf