Seite 2 von 3
Re: Alle Spalten einblenden
Verfasst: Mo 15. Okt 2018, 19:20
von Donna
Hallo Mikele,
ich würde es dann tatsächlich mit Variante 2 machen wollen.
Viele Grüße
Sonja
Re: Alle Spalten einblenden
Verfasst: Mo 15. Okt 2018, 20:41
von mikele
Hallo,
um welchen Bereich geht es dann?
Re: Alle Spalten einblenden
Verfasst: Di 16. Okt 2018, 19:24
von Donna
Hallo Mikele,
A2:N200
kann ich den Bereich dann ggf. selber anpassen? Sollte sich doch mla was ändern?
Gruß
Sonja
Re: Alle Spalten einblenden
Verfasst: Mi 17. Okt 2018, 10:44
von mikele
Hallo,
Code: Alles auswählen
sub entfiltern
oTab=ThisComponent.CurrentController.ActiveSheet
'Festlegung des Bereiches in dem der Autofilter aktiviert ist
sBereichsname="A2:N200"
oDat=oTab.getCellRangeByName(sBereichsname)
oFilter=oDat.createFilterDescriptor(false)
Dim aFilterFields()
oFilter.setFilterFields(aFilterFields)
oDat.filter(oFilter)
end sub
sollte machen, was du möchtest.
Re: Alle Spalten einblenden
Verfasst: Mi 17. Okt 2018, 16:23
von Donna
Hallo Mikele,
ja, macht genau was es soll. Vielen Dank
Jetzt benötige ich noch das "alle Spalten einbelnden" auf dem aktuellen Register und nicht nur dem 1. Register.
Hast Du da auch die Lösung für mich?
Viele Grüße
Sonja
Re: Alle Spalten einblenden
Verfasst: Mi 17. Okt 2018, 20:30
von mikele
Hallo,
Code: Alles auswählen
sub einblenden
ThisComponent.CurrentController.ActiveSheet.Columns.isVisible=true
end sub
Re: Alle Spalten einblenden
Verfasst: Mi 7. Nov 2018, 21:45
von Donna
Hallo Mikele,
jetzt ist mir noch folgendes Problem aufgefallen:
Wenn ich die Tabelle gefiltert habe funktioniert das Einblenden der Zeilen einwandfrei. Allerdings ist der Filter noch immer gesetzt (der Pfeil ist farbig hinterlegt). Wenn ich dann neu filtern möchte ist es nicht möglich, bzw. der neue Filter filtert dann nur aus den bereits vorher gefilterten. Der Code "Zeilen einblenden" löst daher leider doch nicht mein Problem.
Hast Du wieder eine Lösung für mich?
Viele Grüße
Sonja
Re: Alle Spalten einblenden
Verfasst: Fr 9. Nov 2018, 14:45
von mikele
Hallo Donna,
um die Filterung aufzuheben, nimmst du die sub entfiltern. Nur die Zeilen wieder einzublenden hilft wahrlich nicht.
Re: Alle Spalten einblenden
Verfasst: Fr 9. Nov 2018, 19:14
von Donna
Hallo Mikele,
ich habe das SUB entfiltern von Dir verwendet. Es werden aber nur die Zeilen eingeblendet. Der Filter wird sich "gemerkt"
Gruß
Sonja
Re: Alle Spalten einblenden
Verfasst: Sa 10. Nov 2018, 00:22
von mikele
Hallo Donna,
ich wollte nur sicher gehen, dass es wirklich die richtige sub ist.
Gerade habe ich es nochmal unter AOO4.1.1 (unter Windows XP) getestet und kann deine Beobachtung nicht bestätigen.
Welche Version und welches Betriebssystem benutzt du?