Markierfeld: Referenzwert per Makro löschen

[Jörg]

Hallo Fachleute,
Nach dem Motto "Neuer Kunde Neue Runde" lösche ich per Makro die Refenzwerte in einigen verknüpften Zellen.
Danach ist auch der Haken raus und kann wieder gesetzt werden.
Meine Frage ist, ob das auf Dauer gut gehen kann oder ob OOO irgendwie durcheinander kommen könnte?
Bis jetzt ist nichts passiert.

Gruß Jörg

[Stephan]

Ich sehe da keine Probleme, habe aber keine Erfahrungen weil ich es vorziehe den Haken zu entfernen.


Gruß
Stephan

[Jörg]

Hallo Fachleute,
@Stephan
Danke Dir für die Antwort. Deine Vorgehensweise ist natürlich professioneller.
Wollte es auch mal so versuchen, komme aber nicht weiter.

Code: Alles auswählen

sub Markierfeld
odoc = ThisComponent
osheet = odoc.sheets(2)

Dim i as integer
Dim sBNames (1 to 3) as String
sBNames(1) = "Erstverord"
sBNames(2) = "Folgeverord"
sBNames (3) = "Regelfall"
oForm = odoc.sheets().DrawPage.Forms(sbNames(i))
oControl = oForm.getByName(sbNames(i))
For i = 1 To 3
   if oControl.state=1 then
      oControl.state=0 
     
   endif

next i
end sub

Momentan meckert ooo diese Zeile an.

Code: Alles auswählen

oForm = odoc.sheets().DrawPage.Forms(sbNames(i))

Eigenschaft oder Methode nicht gefunden:Drawpage
Mir fehlt es halt an Wissen.

Vielleicht kannst Du ja mal drüberschaun.
Gruß Jörg

[komma4]

Code: Alles auswählen

oForm = odoc.sheets().DrawPage.Forms(sbNames(i))

Eigenschaft oder Methode nicht gefunden:Drawpage

Sheets() ist die Sammlung aller Tabellenblätter - die hat keine DrawPage.

Eine DrawPage findest Du aber bei jedem Sheet..., also:

Code: Alles auswählen

oDoc.Sheets().getByName("Tabelle1").getDrawPage()

verwende MRI zur Untersuchung Deiner Objekte (das kann sogar Code generieren!)

[Jörg]

Hallo Fachleute,
komme leider erst jetzt dazu zu antworten, sorry.
Habe die Extension heruntergeladen. Muß aber leider gestehen, dass meien Englischkenntnisse völlig unzureichend sind.
Trotzdem danke für den Hinweis.
Möchte meine Frage momentan auch nicht weiter verfolgen, da meine "Lösung" bis jetzt gut funktioniert.
Gruß Jörg