Re: Automatische Höhe aktualiseren
Verfasst: Fr, 28.09.2012 19:25
Hi,
anbei ein einfaches Beispiel mit Makro.
Es wird beim Tabellenereignis der Tabelle1 "Inhalt geändert" ausgeführt.
Was passiert ist Folgendes:
Wenn Du auf Tabelle1 etwas änderst wird das Makro ausgeführt.
Es schaut in Tabelle2 nach, welche Zellen benutzt werden. gotoendofusedarea(false)
Dann ermittelt es daraus den Index nEndRow der untersten benutzten Zeile.
In der Schleife for i = 0 to nEndRow wird in allen Zeilen, von der ersten bis zur letzten benutzten die Höhe optimal eingestellt.
Viel Erfolg, Gruß R
anbei ein einfaches Beispiel mit Makro.
Es wird beim Tabellenereignis der Tabelle1 "Inhalt geändert" ausgeführt.
Code: Alles auswählen
Sub set_optimalHeight
osheet = thisComponent.sheets.Tabelle2
ocursor = osheet.createCursor
ocursor.gotoendofusedarea(false)
orangeaddress = ocursor.rangeaddress
nEndRow = orangeaddress.EndRow
for i = 0 to nEndRow
orow = osheet.rows(i)
orow.optimalheight = true
next i
End SubWenn Du auf Tabelle1 etwas änderst wird das Makro ausgeführt.
Es schaut in Tabelle2 nach, welche Zellen benutzt werden. gotoendofusedarea(false)
Dann ermittelt es daraus den Index nEndRow der untersten benutzten Zeile.
In der Schleife for i = 0 to nEndRow wird in allen Zeilen, von der ersten bis zur letzten benutzten die Höhe optimal eingestellt.
Viel Erfolg, Gruß R