ach ja, mal wieder ne Frage,
ich möchte eine Tabelle filtern, mit ' Menue-->Filter-->Spezialfilter--> '
dazu habe ich auf einem 2. Tabelleblatt einen "Suchbereich" und "Ausgabebereich" erstellt,
manuell ausgeführt funtioniert der Filter und die Ausgabe der gefilterten Daten in den Ausgabebereich auf das 2. Tabellenblatt.
Dann habe ich die Macroaufzeichnung gestartet und eine komplette Filteraktion aufgezeichnet,
vom platzieren des Cursor in der DatenTabelle in A1 bis zur Ausgabe der gefilterten Daten.
Das Macro habe ich unter " Meine Makros > Standard > Modul1 > suche1 " gespeichert.
Doch wenn ich das Macro ausführe passiert nichts
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
End Sub
sub suche1
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:DataFilterSpecialFilter", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FilterExecute", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$35"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$8"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
end sub(kann ich aber nicht wirklich beurteilen) von OO basic habe ich k.A.
Was mach ich falsch ?
ich möchte das Macro wenn es läuft auf einen Button legen, neben den Suchbereich
bis denn