Hallo,
ich nutze folgenden Code der aufgerufen wird, wenn sich die Zelle ändert, in der das Filterkriterium steht.
Die Tabelle Filterquelle enthält die zu filternden Daten - wo ich sonst auf Bereich-aktualisieren im Menü gehen würde,
das musst Du dann anpassen.
Die letzten beiden Zeilen springen dann nur an die Stelle, wo ich weiterarbeiten will,
kannst Du löschen oder anpassen.
Code: Alles auswählen
sub Refresh_Filter_Ranges
REM Quelle F3KTotal / LibreOffice-Forum / 30.12.17 / Abrechnung mit Datumskriterium erstellen
REM Angepasst /JB
oController = thisComponent.CurrentController
oStartCell = thisComponent.Sheets.getbyName("Filterquelle").getCellByPosition(1,1)
oController.Select(oStartCell)
document = oController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:DataAreaRefresh", "", 0, Array())
oStartCell = thisComponent.Sheets.getbyName("Auswertung").getCellByPosition(1,1)
oController.Select(oStartCell)
end sub
Mfg, Jörn
PS: Erster Teil der Geschichte ist hier:
https://de.openoffice.info/viewtopic.php?f=18&t=74946
Libre Office 6.3.1 (Win 10 Pro) / Libre Office 6.0.7 (Win8.1 Pro, Win 7 Pro) / AOO (Win 7)