[gelöst] Calc: Zeilen gruppieren und Gruppierung aufheben

[Andy_S]

Hallo,

bitte entschuldigt dass ich hier in einem gelösten Beitrag frage.

Das mit den Zeilen hab ich verstanden - aber wie realisiere ich ein Makro mit Spalten ?

Folgendes möchte ich in Libre Office realisieren:

Code: Alles auswählen

Private Sub Checkbox1_Click()
If CheckBox1.Value = True Then
Columns("L:AP").EntireColumn.Hidden = False
Else
Columns("L:AP").EntireColumn.Hidden = True
End If
End Sub

in Excel kein Problem in LibreOffice kommt Basic-Laufzeitfehler 91 - Eine Objektvariabele nicht belegt

VG Andy_S

[karolus]

Hallo

Code: Alles auswählen

option VBASupport 1

Sub toggle_L_AP
    with Columns("L:AP").EntireColumn
        .Hidden = not .Hidden
    end with
End Sub

[Andy_S]

Hallo

das klappt super - Danke dafür - nur eine Frage - Kann man das auch umkehren ?

Code: Alles auswählen

Hidden = not

? Ich möchte gerne dass die Spalten angezeigt werden wenn die Box aktiv ißt funktioniert vielleicht

Show = not .Show


VG Andy_S

[karolus]

Hallo

Code: Alles auswählen

def toggle(event):
    
    doc = event.Source.Model.Parent.Parent.Parent
    sheet = doc.CurrentController.ActiveSheet
    columns = sheet["L:AP"].Columns
    columns.IsVisible = event.Source.State

[Andy_S]

Hallo

Code: Alles auswählen

Sub def toggle(event):
    
    doc = event.Source.Model.Parent.Parent.Parent
    sheet = doc.CurrentController.ActiveSheet
    columns = ActiveSheet.["L:AP"].Columns
    columns.IsVisible = event.Source.State
End Sub

Hallo und vielen Dank für die Hilfe. Leider funktioniert das nicht. Aber das vorige ist soweit ok - damit komme ich klar Bei diesem bekomme ich wieder Laufzeitfehler 91


VG Andy_S

[karolus]

Hallo

Code: Alles auswählen

Sub def toggle(event):
    
    doc = event.Source.Model.Parent.Parent.Parent
    sheet = doc.CurrentController.ActiveSheet
    columns = ActiveSheet.["L:AP"].Columns
    columns.IsVisible = event.Source.State
End Sub

Nein, das habe ich nicht geschrieben, das hast DU zusammengedichtet!

[Andy_S]

Hallo

Code: Alles auswählen

Sub def toggle(event):
    
    doc = event.Source.Model.Parent.Parent.Parent
    sheet = doc.CurrentController.ActiveSheet
    columns = ActiveSheet.["L:AP"].Columns
    columns.IsVisible = event.Source.State
End Sub

Nein, das habe ich nicht geschrieben, das hast DU zusammengedichtet!

moin

ja das stimmt - ich finde keine Möglichkeit den Code einzusetzen ohne das ein Fehler kommt. Leider habe ich von VBA nicht wirklich Ahnung. Ich habe die Möglichkeit in Betracht gezogen, dass Du evtl etwas übersehen hast. Asche auf mein Haupt. Es wäre toll wenn Du mir noch etwas an die Hand gibst um die Zeilen richtig zu platzieren.


Danke im voraus

VG Andy_S

[karolus]

Code: Alles auswählen

sub toggle(event)
    
    doc = event.Source.Model.Parent.Parent.Parent
    sheet = doc.CurrentController.ActiveSheet
    columns = sheet.getCellRangeByName("L1:AP1").Columns
    columns.IsVisible = event.Source.State
end sub

[Andy_S]

Code: Alles auswählen

sub toggle(event)
    
    doc = event.Source.Model.Parent.Parent.Parent
    sheet = doc.CurrentController.ActiveSheet
    columns = sheet.getCellRangeByName("L1:AP1").Columns
    columns.IsVisible = event.Source.State
end sub

Erstmal Danke.

Leider kommt ein Basic-Laufzeitfehler 423 - Eigenschaft oder Methode nicht gefunden:State

VG