das folgende makro legt in verbindung mit einem dialog die höhe der zeilen 1 bis 6 fest. nun möchte ich, dass die summe der zeilen als wert im dialog angezeigt wird. geht das?
Sub ZeilenHoehe
Dim i as Integer
Dim calcDoc as Object
Dim oAktivesBlatt as Object
Dim oZeile as Object
Dim dblZeilenHoehe as Double'Variable für die div. Zeilenhöhen
calcDoc = ThisComponent
oAktivesBlatt = calcDoc.CurrentController.activeSheet
For i = 1 to 6
'--Zeilen 1 bis 6 in der Breite festlegen
if oDlg.getControl("numZe"&I).value > 0 then
dblZeilenHoehe = oDlg.getControl("numZe"&I).value
oZeile =oAktivesBlatt.Rows(I-1)'.getByIndex(I-1)
oZeile.height = (dblZeilenHoehe) * 1000
end if
next
End Sub
...nun möchte ich, dass die summe der zeilen als wert im dialog angezeigt wird
Verstehe ich nicht. Welche Summe? Zeile 1-6 = 6 ? Summe der ZeilenHöhen, also 6*1000*dblZeilenHoehe? Summe der - ja, was denn eigentlich?
Und natürlich - du kannst alles in einem Dialog anzeigen lassen - dafür gibt es schliesslich Textfelder, deren Inhalt du leicht per Makro setzen und ändern kannst.
Beispiel gefällig: http://www.amt-wiesbaden.de/ooo/Bsp_Dia ... emente.ods
zeile 1 ha z.b. die höhe 1 cm, zeile 2 3 cm im dialog müsste nun die summe von 4 cm angezeigt werden. die einzige eines einzigen wertes ist klar. die frage ist, ob werte von mehreren nummernfeldern addiert und angezeigt werden können?
