BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Openoffice Calc: Problem bei WENN-Verarbeitung

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
LS22Spieler
Beiträge: 8
Registriert: Do 25. Aug 2022, 18:23

Openoffice Calc: Problem bei WENN-Verarbeitung

Beitrag von LS22Spieler » Do 25. Aug 2022, 18:35

Guten Tag Ihr Wissenden,

ich spiele zur Zeit LS22 und versuche mir eine Feldverwaltung aufzubauen.
Folgendes Problem habe ich:
Ich gebe bei der entsprechenden Tätigkeit eines Feldes (hier Feld 4) eine 1 ein, wenn diese Tätigkeit erledigt ist. Es handelt sich um die Tätigkeiten Grubbern, Säen, Walzen und Düngen.
Wenn das Feld nun Abgeerntet ist soll durch die Eingabe einer 1 die anderen Tätigkeiten auf 0 gesetzt werden und, wenn möglich, die Tätigkeit Abgeerntet auch wieder auf 0 gesetzt werden.
Man könnte die Felder auch einfach auf "Leer" stellen.
Durch die Eingebe der 1en werden noch bedingte Formatierungen ausgelöst.
Wie gesagt, die Zahlen werden händisch eingetragen, sollen aber automatisch gelöscht werden.
Mit der WENN-Funktion komme ich da nicht hin. (Oder ich bin einfach zu blöde dafür :D :D )
Ich würde mich über eine konstruktive Hilfe sehr freuen.
Und ja, ich habe auch das halbe Forum schon durchsucht.
Dateianhänge
Fürs Forum.ods
(8.71 KiB) 97-mal heruntergeladen

Kalk
Beiträge: 482
Registriert: Do 6. Feb 2014, 19:45

Re: Openoffice Calc: Problem bei WENN-Verarbeitung

Beitrag von Kalk » Do 25. Aug 2022, 19:59

Hallo,

so was geht nur über Makroprogrammierung.

Wenn es nicht zu viele Felder sind, gibt es auch diese Möglichkeit mit Markierfelder.

https://ask.libreoffice.org/t/mehrere-m ... tzen/63523
Gruß Kalk

LS22Spieler
Beiträge: 8
Registriert: Do 25. Aug 2022, 18:23

Re: Openoffice Calc: Problem bei WENN-Verarbeitung

Beitrag von LS22Spieler » Fr 26. Aug 2022, 08:20

Hallo Kalk,

erst einmal Danke für Deine schnelle Antwort.
Ich hatte gehofft um das Programmieren herum zu kommen.
Da werde ich dann tiefer einsteigen müssen, als gedacht.
Das mit den "Markierfeldern" werde ich mal als weitere Möglichkeit probieren.

Wenn jemand noch eine einfachere Lösung hat, bitte melden :)

Danke schön

EDIT: Gibt es hier im Bereich jemanden, der mir bei dem Makro unter die Arme greifen könnte?
Ansonsten schreibe ich meine Frage noch einmal in den entsprechenden Bereich hier im Forum.

LS22Spieler
Beiträge: 8
Registriert: Do 25. Aug 2022, 18:23

Re: Openoffice Calc: Problem bei WENN-Verarbeitung

Beitrag von LS22Spieler » Fr 26. Aug 2022, 09:48

So, jetzt habe ich ein Makro aufgezeichnet und es funktioniert auch für diese eine Zeile, wenn ich es per Hand ausführe.
Ich möchte es aber gerne automatisch ausführen, wenn im Feld "Abgeerntet" eine 1 steht. WENN Abfrage?
Des Weiteren geht dieses Makro nur für eine Zeile. Wie kann ich das Makro so umbauen, dass es variabel für alle Zeilen geht?

REM ***** BASIC *****


sub Feld10
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$J$12"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
args3(1).Name = "Sel"
args3(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "StringName"
args4(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(1) as new com.sun.star.beans.PropertyValue
args5(0).Name = "By"
args5(0).Value = 1
args5(1).Name = "Sel"
args5(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "StringName"
args6(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args6())

rem ----------------------------------------------------------------------
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "StringName"
args8(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(1) as new com.sun.star.beans.PropertyValue
args9(0).Name = "By"
args9(0).Value = 1
args9(1).Name = "Sel"
args9(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args9())

rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "StringName"
args10(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(1) as new com.sun.star.beans.PropertyValue
args11(0).Name = "By"
args11(0).Value = 1
args11(1).Name = "Sel"
args11(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args11())


end sub

Mondblatt24
Beiträge: 812
Registriert: Do 9. Mär 2017, 09:53

Re: Openoffice Calc: Problem bei WENN-Verarbeitung

Beitrag von Mondblatt24 » So 28. Aug 2022, 05:49

Win 11 (x64) ▪ 24.2.1.2 (x64) ▪ AOO Portable 4.1.15
Wenn Eure Frage zutreffend beantwortet wurde, seid so nett und fügt dem Betreff der Eingangsfrage [GELÖST] hinzu.

Antworten