Automatische Höhe aktualiseren

[F3K Total]

Hi,
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 Sub

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