Calc: Gruppieren über mehrere Stufen

gefragt 2020-05-12 07:53:17 +0200

Harald_LibreOffice Gravatar-Bild

updated 2020-05-12 10:43:14 +0200

Opaque Gravatar-Bild

Hallo miteinander,

in Excel habe ich zwei Makros, die die Gruppierung über mehrere Stufen automatisieren. Dort führe ich zuerst das Makro "Gruppierung aufheben" aus und anschließend das Makro "Gruppieren". Danach speichere ich die Datei im xls-Format und öffne sie mit Calc. Dann funktionieren die Makros auch in Calc; sonst nicht. Im Excel-Makro muss es Befehlswörter geben, die Calc nicht interpretieren kann, denn das Makro kopieren funktioniert nicht.

Hier die beiden Makros (aus Excel)

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Sub Gruppieren()
Dim Zelle As Range
Dim x As Long

Range("A2").Select

Cells(2, 1).Value = 0
Range("A:E").EntireColumn.AutoFit

'Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _
'    Replace:=True, PageBreaks:=False, SummaryBelowData:=False
'Selection.RemoveSubtotal

For Each Zelle In Columns(1).SpecialCells(xlCellTypeConstants, 1)
    x = Zelle.Value
    If x >= 1 And x <= 8 Then Zelle.EntireRow.OutlineLevel = x
Next

ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub


Sub GruppierungenAufheben()
' Alle Gruppierungen aufheben
ActiveSheet.Cells.ClearOutline
End Sub

Kennt jemand ein für Calc funktionjierendes Makro und kann/darf man das hier einstellen?

Grüße Harald

[Edit - Opaque] Makros zur besseren Lesbarkeit in Vormformattierten Text geändert

Bearbeiten Tags ändern Melden schließen vereinen löschen