Makroaufzeichnung scheint nicht zu funktionieren...

[Sonntagsflieger]

Hallo liebe Leute,

ich würde gerne einen bestimmten Standardfilter als Makro erstellen. Ich habe es mit der
Makroaufzeichnung versucht, leider scheint das nicht zu funktionieren, denn beim Ausführen
des Makros passiert nicht das Gewünschte.

Eigentlich ist es nichts Kompliziertes. Hier ist ein ein Screenshot meiner Tabelle:



Ich möchte, daß nur die Zeilen angezeigt werden, in denen entweder ein Wert > 0 eingetragen ist,
oder in denen ein "*" eingetragen ist. Dies habe ich mit dem Standardfilter folgendermaßen gelöst:



Das funktioniert dann auch wie gewünscht:



So weit so gut. Ich habe dann versucht das Setzen des Standardfilters als Makro aufzuzeichnen.
Leider funktioniert das Makro aber nicht. Folgendes wurde aufgezeichnet:



Frage: wo liegt der Fehler, bzw. was wurde bei der Aufzeichnung nicht/falsch erkannt und wie muss ich das Makro
modifizieren, damit es funktioniert?

Ich bin absoluter Makro-Newbie und würde mich über Hilfe sehr freuen. Ich benutze die Version 4.2.3.3. für den Mac.

Viele Grüße und schonmal Danke,

Stefan

[karolus]

Hallo

Anscheinend ist es schwieriger den Quelltext per copy&paste hier einzufügen als einen Screenshot davon



entferne das "REM" in der vorletzten "dispatcher...."-zeile

[Sonntagsflieger]

Hi,

danke für den Tipp. Habe ich gemacht. Quelltext sieht nun so aus:

REM ***** BASIC *****


sub ZahlenundSternchen
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 = "$B$6:$C$12"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DataFilterStandardFilter", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FilterExecute", "", 0, Array())


end sub



Leider funktioniert das Makro trotzdem nicht richtig. Das Ausführen des Makro führt jetzt nur dazu,
daß folgendes Fenster geöffnet wird. Ich will mir mit dem Makro ja sparen in dem Fenster "Standardfilter"
nochmal eingeben und bestätigen zu müssen wonach gefiltert werden soll. Das soll ja alles das Makro
erledigen und ich möchte nur noch die fertig gefilterte Tabelle sehen. Naja...immerhin passiert jetzt schon
mal was Vorher mit dem "REM" an der falschen Stelle ging ja gar nichts...



Viele Grüße,

Stefan

[balu]

Hallo Stefan,

der Makro-Recorder zeichnet nicht alles auf, und von daher ist er in diesem Falle nicht Hilfreich. Aber schau mal in ein anderes Forum, da müsste dir das hier wohl weitrhelfen können. Wenn nicht, musst Du dich dann halt noch mal melden.



Gruß
balu