Makro für Spalten ein/ausblenden

[Paule]

moin,

ich habe eine Tabelle mit mehreren Werten die in ein diagramm übernommen werden sollen. Jedoch möchte ich keine "leeren" Stellen in meinem Diagramm haben. Also möchte ich die Spalten Ausblenen lassen, am besten automatisch mit Makro.
(also: wenn in Zelle a18 = "-" dann Gesamte Spalte ausblenden.. so in der art)

Hab im Forum zwar schon ein Makro zum ausblenden von Zeilen gefunden bin aber Irgendwie nicht in der Lage das korrekt umzuschreiben..


danke im voraus
gruß
Paule

[Toxitom]

Hey Paule,

na, wenn du doch schon das Makro für Zeilen hast.... ist ananlog anzuwenden auf Spalten, hier sogar noch etwas einfacher, da du die Spalten direkt mit Namen ansprexchen kannst.

Code: Alles auswählen

...
oSheet = ThisDocument.Sheets(0)
oSheet.getColumns().getByName("C").isVisible = false
....

blendet dir die Spalte "C" des ersten Tabellenbalttes aus. Du kannst die Spalten allerdings auch über den Index ansprechen - immer dann einfacher, wenn man mit Schleifen arbeitet.

Für dein Problem: Du benötigst natürlich eine Abfrage, um zu lesen, was denn in der Zelle steht. Beispiel:

Code: Alles auswählen

...
oSheet = ThisComponent.Sheets(0)
For i = 0 to 5
   oZelle = oSheet.getCellByPosition(i, 19)
   if oZelle.value = 0 then
      oSheet.columns(i).isVisible = false
   end if
next
....

Diese Schleife durchläuft die Zellen A18 bis F18 und blendet die jeweiligen Spalten aus, wenn der WErt der Zelle gleich Null ist (dein Strich dürfte Null bedeuten).

Ich hoffe, du kannst damit arbeiten.

Gruss
Thomas

[Paule]

Ja, geht einwandfrei. Danke danke danke



gruß

Paule