von F3K Total » Mi, 23.12.2020 17:16
Moin,
ich habe in meinem Fundus diese Makros gefunden, hier kannst du ansetzen.
Code: Alles auswählen
Sub Gruppierungen_setzen
oSheet = thisComponent.sheets.getbyName("Tabelle1")
for i = 0 to 10
nStart = i*10 + 1
nEnd = nStart + 6
oRangeaddress = oSheet.GetCellRangeByPosition(0,nStart,0,nEnd).RangeAddress
'com.sun.star.table.TableOrientation.COLUMNS
'com.sun.star.table.TableOrientation.ROWS
oSheet.group(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
oSheet.HideDetail(oRangeaddress)
next i
End Sub
Sub Gruppierungen_aufheben
oSheet = thisComponent.sheets.getbyName("Tabelle1")
for i = 0 to 10
nStart = i*10 + 1
nEnd = nStart + 6
oRangeaddress = oSheet.GetCellRangeByPosition(0,nStart,0,nEnd).RangeAddress
oSheet.ShowDetail(oRangeaddress)
oSheet.ungroup(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
next i
End Sub
Es gibt diese Befehle:
Code: Alles auswählen
oSheet.group(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
oSheet.ungroup(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
oSheet.HideDetail(oRangeaddress)
oSheet.ShowDetail(oRangeaddress)
... mt denen du spielen kannst.
Gruß R
Moin,
ich habe in meinem Fundus diese Makros gefunden, hier kannst du ansetzen.
[code]Sub Gruppierungen_setzen
oSheet = thisComponent.sheets.getbyName("Tabelle1")
for i = 0 to 10
nStart = i*10 + 1
nEnd = nStart + 6
oRangeaddress = oSheet.GetCellRangeByPosition(0,nStart,0,nEnd).RangeAddress
'com.sun.star.table.TableOrientation.COLUMNS
'com.sun.star.table.TableOrientation.ROWS
oSheet.group(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
oSheet.HideDetail(oRangeaddress)
next i
End Sub
Sub Gruppierungen_aufheben
oSheet = thisComponent.sheets.getbyName("Tabelle1")
for i = 0 to 10
nStart = i*10 + 1
nEnd = nStart + 6
oRangeaddress = oSheet.GetCellRangeByPosition(0,nStart,0,nEnd).RangeAddress
oSheet.ShowDetail(oRangeaddress)
oSheet.ungroup(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
next i
End Sub[/code]
Es gibt diese Befehle:
[code]oSheet.group(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
oSheet.ungroup(oRangeaddress,com.sun.star.table.TableOrientation.ROWS)
oSheet.HideDetail(oRangeaddress)
oSheet.ShowDetail(oRangeaddress)
[/code] ... mt denen du spielen kannst.
Gruß R