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. 🤗

Benötige Hilfe bei Funktion WENN und MAKRO

Alles zur Programmierung im OpenOffice.org
Antworten
LS22Spieler
Beiträge: 8
Registriert: Do 25. Aug 2022, 18:23

Benötige Hilfe bei Funktion WENN und MAKRO

Beitrag von LS22Spieler » Sa 27. Aug 2022, 19:50

Hallo zusammeb,
da mir im Calc-Bereich leider niemand richtig helfen kann, stell ich meine Frage nun hier.
Ich spiele LS22 und möchte mir eine Feldverwaltung aufbauen.
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.
Ich habe dazu eine Demotabelle beigefügt. (Fürs Forum.ods)

Ich habe auch ein Makro aufgezeichnet und es funktioniert auch für diese eine Zeile, wenn ich es per Hand ausführe.
Ich habe aber 48 Zeilen.
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
Dateianhänge
Fürs Forum.ods
(8.71 KiB) 182-mal heruntergeladen

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

Re: Benötige Hilfe bei Funktion WENN und MAKRO

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

LS22Spieler hat geschrieben:
Sa 27. Aug 2022, 19:50
da mir im Calc-Bereich leider niemand richtig helfen kann
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