BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> 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
-
- Beiträge: 8
- Registriert: Do 25. Aug 2022, 18:23
Openoffice Calc: Problem bei WENN-Verarbeitung
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 )
Ich würde mich über eine konstruktive Hilfe sehr freuen.
Und ja, ich habe auch das halbe Forum schon durchsucht.
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 )
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
Re: Openoffice Calc: Problem bei WENN-Verarbeitung
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
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
-
- Beiträge: 8
- Registriert: Do 25. Aug 2022, 18:23
Re: Openoffice Calc: Problem bei WENN-Verarbeitung
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.
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.
-
- Beiträge: 8
- Registriert: Do 25. Aug 2022, 18:23
Re: Openoffice Calc: Problem bei WENN-Verarbeitung
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
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
-
- Beiträge: 812
- Registriert: Do 9. Mär 2017, 09:53
Re: Openoffice Calc: Problem bei WENN-Verarbeitung
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.
Wenn Eure Frage zutreffend beantwortet wurde, seid so nett und fügt dem Betreff der Eingangsfrage [GELÖST] hinzu.