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