Makro Spalte aus- und einblenden

[Tschubi]

Hallo zusammen,

ich wuerde gern eine Spalte per Button aus- und wieder einblenden wollen. Aber bekomme es trotz suche nicht hin.
Mein aktueller Ansatz anhand von Recherche im Netz sieht wie folgt aus

Code: Alles auswählen

Sub spalte_umschalten ()

dim oSheet   as object
oSheet = thisComponent.sheets.getByName("Tabelle1")
oSpalte = oSheet.getColumns().getByName("M")
 
           If oSpalte.isVisible = False Then
       		oSpalte.isVisible = True
             
          Else
             oSpalte.isVisible = False
          End If
            
End Sub

Bekomme jedoch einen BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.container.NoSuchElementException
Message: .

Kann mir jemand sagen was ich falsch mache und Wege aufzeigen?

Danke

[gerderich]

Hallo Tschubi,

.....
Bekomme jedoch einen BASIC-Laufzeitfehler.
......
Kann mir jemand sagen was ich falsch mache und Wege aufzeigen?

Deine Infos sind ein wenig spärlich. Das Makro habe ich ausprobiert. Funktioniert einwandfrei. Spalte M wird ein- resp ausgeblendet. Jetzt wäre interessant zu wissen:
Wann, resp. wo kommt die von Dir angesprochenen Fehlermeldung? Am besten, du stellst dein Calc Doku hier zur Verfügung. Dann könnte man vielleicht eine Möglichkeit finden.
Gruß
Gerd Erich

[craig]

Hallo,

Dein Makro funktioniert bei mir.

Das einzige was mir dazu einfällt, wäre das Dein Tabellenblattname anders heißt:

Code: Alles auswählen

oSheet = thisComponent.sheets.getByName("Tabelle1")

Du könntest auch auf den Index verweisen:

Code: Alles auswählen

oSheet = thisComponent.sheets.getByIndex(0)

Gruß

Craig

[karolus]

Mit python aus LO5.2 reduziert sich die Aufgabe auf schlicht drei Zeilen:

Code: Alles auswählen

def spalte_ein_aus(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    col = doc.Sheets.Tabelle1.Columns.M
    col.IsVisible = not col.IsVisible

[Tschubi]

Hallo zusammen,

vielen Dank, es war in der Tat ein nicht ganz korrekte Uebereinstimmung im Tabellenblattnamen.

Manchmal uebersieht man irgendwie die kleinsten Dinge

Danke und Gruß