Seite 1 von 1
summe von eingabefeldern im dialog
Verfasst: Sa, 28.01.2006 10:03
von kannenklaus
hallo gruppe,
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?
Code: Alles auswählen
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
freue mich auf eine antwort
gruß
klaus
Verfasst: Sa, 28.01.2006 10:19
von Toxitom
Hey Klaus,
...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
Da ist alles mögliche beschrieben und gezeigt
Gruss
Thomas
Verfasst: Sa, 28.01.2006 17:16
von kannenklaus
hallo thomas,
Verstehe ich nicht. Welche Summe? Zeile 1-6
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?
gruss
klaus
Verfasst: Sa, 28.01.2006 19:19
von Toxitom
Hey Klaus,
ob werte von mehreren nummernfeldern addiert und angezeigt werden können?
Hmm, na ja, wo ist das Prblem. Natürlich kannst du addieren. Mit einer Schleife?
Code: Alles auswählen
dim iGesamthoehe
for i = 0 to 5
iGesamthoehe = iGesamthoehe + oAktivesBlatt.Rows(I).height
next
oDlg.getControl("Anzeigefeld").text = iGesamthoehe
Oder verstehe ich immer noch etwas faslch?
Gruss
Thomas
Verfasst: Sa, 28.01.2006 19:24
von kannenklaus
hallo thomas,
Oder verstehe ich immer noch etwas faslch?
alles richtig; danke für den tipp
schönes wochenende
klaus