Hallo,
EDV schrieb:
> ich möchte in einem Makro den Inhalt einer Zelle als
> Suchbegriff übergeben.
OK
> Das funktioniert auch beim 1. mal, da der Inhalt der Zelle im
> Makrobefehl
> ( args9(10).Value = ... ) eingetragen wird. Sobald aber
> der Zellinhalt
> sich ändert, funktioneirt das Makro nicht mehr.
> Ich benötige eine
> Möglichkeit im Makro, wo ich den Zellinhalt mit copy und paste in die
> Suchfunktion einsetzen kann.
ganz sicher - Oder doch lieber nur den Suchparameter _übergeben_ wie
anfangs gefragt?
> Können Sie mir helfen ?
=========
entweder:
=========
Parameter übergeben (wenn dieser dem gesamten Zellinhalt entspricht),
erfordert die eine Zeile im Makro:
> ( args9(10).Value = ... )
abzuändern/ergänzen auf:
oZelle=thisComponent.getCurrentSelection()
prfg=HasUnoInterfaces( oZelle, "com.sun.star.table.XCell" )
if prfg then
args9(10).Value = oZelle.formula
else
msgbox "Sie dürfen nur eine Zelle markieren"
end if
zum Suchen dann erst eine Zelle markieren die den Suchausdruck enthält
und anschließend das Makro starten.
=====
oder:
=====
Falls es aber doch um manuelles copy & paste in den Dialog geht, dann
diesen einfach aufrufen, beispielsweise:
sub suchdialog()
dim document as object
dim dispatcher as object
Dim args1()
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SearchDialog", "", 0,
args1())
end sub
und in den Suchdialog dann das Gewünschte reinkopieren.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
