OpenOffice.info

Sub anwesend(oevent) as boolean
	oTab=oevent.spreadsheet
	oBereich=oTab.getCellRangeByName("A1:C10")
	if oBereich.queryintersection(oevent.rangeaddress).count>0 then
		With oevent
			If .String = "x" Then
					.String = ""
				Else
					.String = "x"
			End If
		End With
		anwesend=true
	else
		anwesend=false
	end if
End Sub

anwesend=true

Hallo,
[quote]wie und wohin muss das?[/quote]
Das das Makro in das Dokument soll, sollte klar sein (und auch wie). Die Ereigniszuweisung funktioniert gänzlich anders als in Excel.
Du klickst mit der rechten Maustaste auf den Tab des gewünschten Tabellenblattes und wählst "Tabellenereignisse...", wählst "Doppelklick" und klickst dann auf "Makro ...". Dann wählst du das gewünschte Makro.
Ich habe Stephans Makro mal ein bisschen ausgebaut.
[code]Sub anwesend(oevent) as boolean
oTab=oevent.spreadsheet
oBereich=oTab.getCellRangeByName("A1:C10")
if oBereich.queryintersection(oevent.rangeaddress).count>0 then
With oevent
If .String = "x" Then
.String = ""
Else
.String = "x"
End If
End With
anwesend=true
else
anwesend=false
end if
End Sub[/code]
Damit wird nun ein Bereich festgelegt, in dem die "x" mit Doppelklick gesetzt/gelöscht werden. Die Anweisung [code]anwesend=true[/code] sorgt dafür, dass nicht wie üblich (und außerhalb des Bereiches gewollt) der Textcursor in der Zelle landet (was normalerweise beim Doppelklick passiert).

Sub Main
	With ThisComponent.getCurrentSelection
		If .String = "x" Then
				.String = ""
			Else
				.String = "x"
		End If
	End With
End Sub

z.B.

Weise folgendes Makro dem Tabellenereignis "Doppelklick" zu:#

[code]Sub Main
With ThisComponent.getCurrentSelection
If .String = "x" Then
.String = ""
Else
.String = "x"
End If
End With
End Sub[/code]


Gruß
Stephan