Re: [de-users] Calc: Spalten grupperen

Hallo Boris,

wenn die Spalten sich überschneiden, dann geht das normal mit dem 
Gruppieren Befehl. Die Gruppierung muss jeweils Teil der anderen 
Gruppierungen sein. Dann erhältst du links unter dem Namensfeld die 
Gruppen als kleine Schaltflächen angezeigt und du kannst bequem darauf 
zugreifen.
Das ganze ist aber sehr limitiert. Sehr viel einfacher, wäre es ein 
Makro zu verwenden, das dir die gewünschten Spalten ausblendet.

Ich habe mal ChatGPT gebeten mir ein Makro hierfür zu schreiben. Hier in 
diesem Beispiel, blendet es die Spalten B, F und G aus.

Sub SpaltenAusblenden
    Dim oDoc As Object
    Dim oSheet As Object
    oDoc = ThisComponent
    oSheet = oDoc.CurrentController.ActiveSheet

    ' Spalten B (Index 1), F (Index 5) und G (Index 6) ausblenden
    oSheet.Columns.getByIndex(1).IsVisible = False
    oSheet.Columns.getByIndex(5).IsVisible = False
    oSheet.Columns.getByIndex(6).IsVisible = False
End Sub

Um es an deine Bedürfnisse anzupassen, musst du nur die Indexnummern 
richtig einstellen. Rückgängig gemacht mit IsVisible = True

Es geht auch mit einem Umschalter. Je nachdem ob gerade ausgeblendet 
wird eingeblendet und umgekehrt. Siehe hier:

Sub ToggleSpaltenBFG
    Dim oDoc As Object
    Dim oSheet As Object
    oDoc = ThisComponent
    oSheet = oDoc.CurrentController.ActiveSheet

    Dim spaltenIndices As Variant
    spaltenIndices = Array(1, 5, 6) ' B = 1, F = 5, G = 6

    Dim i As Integer
    For i = 0 To UBound(spaltenIndices)
        Dim spalte As Object
        spalte = oSheet.Columns.getByIndex(spaltenIndices(i))
        spalte.IsVisible = Not spalte.IsVisible
    Next i
End Sub

Ich hoffe das hilft dir irgendwie weiter.

Mit freundlichen Grüßen

Jürgen Kirsten



Am 18.04.2025 um 12:15 schrieb Boris Kirkorowicz:
> Hallo,
> für verschiedene Vorgänge nutze ich gern die Funktion, Spalten zu
> gruppieren, um schnell bestimmte Spalten aus- und einzublenden. Für
> verschiedene Situationen wäre es nützlich, wenn ich mehrere verschiedene
> Sätze einrichten könnte, bspw. eine für die Dateneingabe, eine zweite
> für die Kontrolle, eine dritte für die Aus- bzw. Weitergabe...
>
> Kann man das irgendwie einrichten oder erreichen?


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy