BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Alle Spalten einblenden

Alles zur Programmierung im OpenOffice.org
Donna
Beiträge: 16
Registriert: Fr 14. Sep 2018, 18:58

Re: Alle Spalten einblenden

Beitrag von Donna » Mo 15. Okt 2018, 19:20

Hallo Mikele,

ich würde es dann tatsächlich mit Variante 2 machen wollen.

Viele Grüße
Sonja

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Alle Spalten einblenden

Beitrag von mikele » Mo 15. Okt 2018, 20:41

Hallo,
um welchen Bereich geht es dann?
Gruß,
mikele

Donna
Beiträge: 16
Registriert: Fr 14. Sep 2018, 18:58

Re: Alle Spalten einblenden

Beitrag von Donna » Di 16. Okt 2018, 19:24

Hallo Mikele,

A2:N200

kann ich den Bereich dann ggf. selber anpassen? Sollte sich doch mla was ändern?

Gruß
Sonja

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Alle Spalten einblenden

Beitrag von mikele » Mi 17. Okt 2018, 10:44

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.
Gruß,
mikele

Donna
Beiträge: 16
Registriert: Fr 14. Sep 2018, 18:58

Re: Alle Spalten einblenden

Beitrag von Donna » Mi 17. Okt 2018, 16:23

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

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Alle Spalten einblenden

Beitrag von mikele » Mi 17. Okt 2018, 20:30

Hallo,

Code: Alles auswählen

sub einblenden
	ThisComponent.CurrentController.ActiveSheet.Columns.isVisible=true
end sub
Gruß,
mikele

Donna
Beiträge: 16
Registriert: Fr 14. Sep 2018, 18:58

Re: Alle Spalten einblenden

Beitrag von Donna » Mi 7. Nov 2018, 21:45

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

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Alle Spalten einblenden

Beitrag von mikele » Fr 9. Nov 2018, 14:45

Hallo Donna,
um die Filterung aufzuheben, nimmst du die sub entfiltern. Nur die Zeilen wieder einzublenden hilft wahrlich nicht.
Gruß,
mikele

Donna
Beiträge: 16
Registriert: Fr 14. Sep 2018, 18:58

Re: Alle Spalten einblenden

Beitrag von Donna » Fr 9. Nov 2018, 19:14

Hallo Mikele,

ich habe das SUB entfiltern von Dir verwendet. Es werden aber nur die Zeilen eingeblendet. Der Filter wird sich "gemerkt"

Gruß
Sonja

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Alle Spalten einblenden

Beitrag von mikele » Sa 10. Nov 2018, 00:22

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?
Dateianhänge
beispiel makro filter entfernen.ods
(13.55 KiB) 237-mal heruntergeladen
Gruß,
mikele

Antworten