OpenOffice.info

hallo thomas,

[quote]Oder verstehe ich immer noch etwas faslch?[/quote]

alles richtig; danke für den tipp :lol:

schönes wochenende

klaus

dim iGesamthoehe
for i = 0 to 5
   iGesamthoehe = iGesamthoehe + oAktivesBlatt.Rows(I).height
next
   oDlg.getControl("Anzeigefeld").text = iGesamthoehe

Hey Klaus,

[quote]ob werte von mehreren nummernfeldern addiert und angezeigt werden können?[/quote]

Hmm, na ja, wo ist das Prblem. Natürlich kannst du addieren. Mit einer Schleife?

[code]
dim iGesamthoehe
for i = 0 to 5
iGesamthoehe = iGesamthoehe + oAktivesBlatt.Rows(I).height
next
oDlg.getControl("Anzeigefeld").text = iGesamthoehe
[/code]

Oder verstehe ich immer noch etwas faslch?

Gruss
Thomas

hallo thomas,

[quote]Verstehe ich nicht. Welche Summe? Zeile 1-6[/quote]

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

Hey Klaus,

[quote]...nun möchte ich, dass die summe der zeilen als wert im dialog angezeigt wird[/quote]

:?:
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_Dialog_Kontrollelemente.ods

Da ist alles mögliche beschrieben und gezeigt
:D

Gruss
Thomas

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

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]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[/code]

freue mich auf eine antwort

gruß

klaus