OpenOffice.info

sub Bar
	dim document   as object
	dim dispatcher as object
		document   = ThisComponent.CurrentController.Frame
		dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	dim args1(0) as new com.sun.star.beans.PropertyValue
		args1(0).Name = "ToPoint"
		args1(0).Value = "$CK$20"
			dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
	dim args2(0) as new com.sun.star.beans.PropertyValue
		args2(0).Name = "StringName"
		args2(0).Value = "1"
			dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
	dim args3(0) as new com.sun.star.beans.PropertyValue
		args3(0).Name = "ToPoint"
		args3(0).Value = "$CK$21"
			dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
	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())
	dim args5(0) as new com.sun.star.beans.PropertyValue
		args5(0).Name = "ToPoint"
		args5(0).Value = "$A$12"
			dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
end sub

=WENN(UND($CK$20=0;$CK$21=1);"X";"")

Ich habe inzwischen auch eine andere möglichkeit gefunden ohne dieses "gültigkeitszeugs" :-)

Ich habe mit hilfe des Makroaufzeichnen assistenten folgendes Makro aufgezeichnet.

[code]sub Bar
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$CK$20"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "1"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$CK$21"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
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())
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$12"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
end sub
[/code]

Anschliefend habe ich ich in der Zelle in der das kreuz gesetzt werden soll folgende Formel zu stehen.

[code]=WENN(UND($CK$20=0;$CK$21=1);"X";"")[/code]

Diese Zelle habe ich dann noch umrandet und das Makro auf einen Button gelegt.

Ich weiß es sieht vielleicht etwas konfus aus aber das sind insgesammt 3 Makros eines für "Bar", eines für "Überweisung" und eines für "Zahlungsweise unklar". Somit muß ich nur noch die entsprechenden Button drucken und die kreuze erscheinen da wo sie sein sollen.

mfg TeaKay

Ich wollte nun auch diverse Markierfelder in ein Tabellendokument einfügen. Bei Auswahl aus der Symbolleiste "Formular" kann ich dies Felder zwar frei platzieren, möchte es aber "ganz normal" innerhalb einer Zelle haben, die ich dann auch einfach beliebig oft kopieren kann. Wie ist das zu bewerkstelligen?

Wenn Du die Version 2 hast, könntest Du mit der "Gültigkeit" und einem Aufklapp-Menu arbeiten.
Du müsstest z.B. ein "X" irgendwo in einem unbenutzten Tabellenbereich hinterlegen, z.B. in Zelle: Tabelle23.A1.
Dann kannst Du in dem Feld, in dem angekreuzt werden soll, aufrufen: Daten/Gültigkeit. Als Optionen wählst Du "Zellbereich" und "Auswahlliste anzeigen" und vermutlich auch "Leerzellen zulassen". Als Quelle: "Tabelle23.$A$1"
Schöne Grüsse
PS: statt eine "wirkliche" Zelle wie Tabelle23.A1 kann man auch einen Zellnamen benutzen:
- Einfügen/Namen
- Name z.B.: X
- zugeordnet zu: "X" (Anführungszeichen müssen sein)
Dann kann bei der Gültigkeit einfach X ins Feld 'Quelle' schreiben (ohne Anführungszeichen)

Danke für den Tipp.
Allerdings hatte ich diese dinger auch schin gesehen. Das Problem ist nur die sind mir zu klein und ich habe keine möglichkeit gefunden diese dinger größer zu machen.

Hey Teakay,

[quote]Wie kann ich ein Kreuz feld in Calc einfügen? [/quote]

Versuch es doch einfach mal mit Formularfeldern. Die findest du in der Symbolleiste - Werkzeuge -> dort das vierte Icon von Oben. Tia, und dort gibt es Markierfelder (das sind solche "Ankreuzfelder") und andere, die kannst du doch ganz eingfach im Dokument plazieren.

Gruss
Thomas

Gute Nachricht ich habe das Problem mit hilfe von Zellvorlagen einem Makro lösen können. Nur bin ich dabei auf ein anderes Problem gestoßen.

Ich habe eine Zellvorlage erstellt, bei der ich über den Karteireiter "Umrandung" ein Kreuz gesetzt habe. Dieses Kreuz ist in der Zellvorlage ist aber nach einem erneuten aufrufen der Vorlage nicht mehr vorhanden.

Kann es sein das das möglicherweise noch ein kleiner Bug in der Version 1.9.130 ist?

Wie kann ich ein Kreuz feld in Calc einfügen?

Es soll so funktionieren das ich es mit der Maus anklicken kann(ankreuzen). Gibt es da eine simple möglichkeit? Ich habe es schon mit Makroaufzeichnen versucht und dabei eine Zelle über "Umrandung" angekreuzt. Es scheint aber so das der Makro rekorder das noicht mit aufnimmt.

WinXP, OOo 1.9.130