OpenOffice.info

oZelle=oDoc.getCurrentSelection()
wert = oZelle.String
if wert = "Wahr" Then 

if thisComponent.getCurrentSelection().String = "Wahr" Then 

Entweder:

[code]
oZelle=oDoc.getCurrentSelection()
wert = oZelle.String
if wert = "Wahr" Then
[/code]

oder nur

[code]
if thisComponent.getCurrentSelection().String = "Wahr" Then
[/code]

Beides zusammen ist nicht sonderlich sinnvoll. Da Du Wert nicht weiter abfragst.
:wink:

mfg
Michael

odoc=thisComponent 
oZelle=oDoc.getCurrentSelection()
wert = oZelle.String
if thisComponent.getCurrentSelection().String = "Wahr" Then

rem ----------Drucken-----
dim args34(2) as new com.sun.star.beans.PropertyValue
args34(0).Name = "Copies"
args34(0).Value = 1
args34(1).Name = "Selection"
args34(1).Value = true
args34(2).Name = "Collate"
args34(2).Value = false

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args34())


else 


end if

Vielen Dank Stephan,

so funktioniert es, wenn die Formel das Wort Wahr schreibt z.B:
=WENN(ISTZAHL(A1);"Wahr";"") und die Zelle markiert ist oder im Macro die Zelle zuvor angesprochen wird.
Ich habe noch einmal alles zusammen gestellt .


[code]odoc=thisComponent
oZelle=oDoc.getCurrentSelection()
wert = oZelle.String
if thisComponent.getCurrentSelection().String = "Wahr" Then

rem ----------Drucken-----
dim args34(2) as new com.sun.star.beans.PropertyValue
args34(0).Name = "Copies"
args34(0).Value = 1
args34(1).Name = "Selection"
args34(1).Value = true
args34(2).Name = "Collate"
args34(2).Value = false

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args34())


else


end if[/code]


Danke

Gruss
Andreas

odoc=thisComponent
oZelle=oDoc.getCurrentSelection()

wert = oZelle.String

If wert = "Wahr" Then
(Seite Drucken) 

else 


end if 

if thisComponent.getCurrentSelection().String = "Wahr" Then
(Seite Drucken) 

else 


end if

[quote]Ich habe diese Webseite schon ausführlich durchgesehen,
leider hat es mich nicht viel weiter gebracht. [/quote]

Wenn das der Fall ist werde auch ich Dir kaum weiterhelfen können, denn ich kann das Rad nicht neu erfinden und wenn Du die gesamte Webseite durchgesehen hast dürfte es keine Probleme mehr geben, denn Michaels FAQ ist hervorragend.

Trotzdem versuche ich es:

[quote]Ich möchte in einem Macro die aktive Zelle auf Wahr prüfen.

Mein Ansatz ist in eine Zelle eine Formel zu schreiben
z.B =wenn(Isttext(A1);"Wahr";"") [/quote]

Ja, Du kannst Das so machen, allerdings wird dann die Zelle nicht auf Wahr (Boolean) sondern nur auf Vorhandensein des Strings "Wahr" geprüft.

Somit:
*zuerst die aktuelle Zelle finden und auslesen, siehe:
http://www.dannenhoefer.de/faqstarbasic/WiekannmanaufdieaktuelleZelleodereinenBe.html
also:
[code]odoc=thisComponent
oZelle=oDoc.getCurrentSelection()[/code]

*dann den Wert der Zelle auslesen, in Deinem Fall ein String, siehe:
http://www.dannenhoefer.de/faqstarbasic/WiebekommeichZugriffzueinerZelle..html
http://www.dannenhoefer.de/faqstarbasic/WiekannmanWerteeinerZellelesenundschreib.html
also:
[code]wert = oZelle.String[/code]

*und das Ganze nun noch in Dein Gerüst:

[code]If wert = "Wahr" Then
(Seite Drucken)

else


end if [/code]


oder ebend zusammengefasst:

[code]if thisComponent.getCurrentSelection().String = "Wahr" Then
(Seite Drucken)

else


end if[/code]

Aber wie bereits gesagt, Du hast es ja schon gelesen wenn Du:
[quote]Ich habe diese Webseite schon ausführlich durchgesehen,[/quote]
so das es Dir wohl kaum weiterhelfen wird wenn ich es hier nochmal wiederholt habe.



Gruß
Stephan

Ich habe diese Webseite schon ausführlich durchgesehen,
leider hat es mich nicht viel weiter gebracht.

Ich möchte in einem Macro die aktive Zelle auf Wahr prüfen.

Ich habe eine Liste und dazu eine Seite mit Etiketten.
Ich möchte automatisch Etiketten drucken lassen, da aber die Liste unterschiedlich viele Einträge haben kann, müssen auch unterschiedlich viele Seiten geruckt werden.

Mein Ansatz ist in eine Zelle eine Formel zu schreiben
z.B =wenn(Isttext(A1);"Wahr";"")

und im Macro diese Zelle Überprüfen mit

IF ????????=true Then

(Seite Drucken)

else


end if

Vielen Dank im Vorraus

Gruß
Andi

Siehe:

http://www.dannenhoefer.de/faqstarbasic/WiekannmanaufdieaktuelleZelleodereinenBe.html


Gruß
Stephan

Ich möchte in einem Macro die aktive Zelle auf Wahr prüfen.


If ??????? = True Then

bei Excel (Selection)


Gruß Andi