OpenOffice.info

ja geht doch :oops:
danke noch mal

Hi,

bei mir kommt da 7,866666666667E-03 raus und das ist richtig.

funktioniert, aber z.B. 5,90/750=7,866 ? merkwürdig dabei ist, daß bei 5,90/0,75=7,866 das richtige rauskommt.

Dim oDialog1 as Object

Sub TextBoxLesen
	DialogLibraries.loadLibrary("Standard") 
	oForm = DialogLibraries.Standard.Dialog1
	oDialog1 = CreateUnoDialog(oForm)
	oDialog1.execute
end sub


Sub ZahlenDividieren
	myDoc = stardesktop.currentcomponent 
	oForm = DialogLibraries.Standard.Dialog1
  	
  	Zahl1=oDialog1.GetControl("NumericField1").value
   	Zahl2=oDialog1.GetControl("NumericField2").value
   	
   	Ergebnis = Zahl1 / Zahl2
   	
  	oDialog1.GetControl("Label3").Text=Ergebnis
End Sub

Hi Mr Weeds,

hilft das:
[code]Dim oDialog1 as Object

Sub TextBoxLesen
DialogLibraries.loadLibrary("Standard")
oForm = DialogLibraries.Standard.Dialog1
oDialog1 = CreateUnoDialog(oForm)
oDialog1.execute
end sub


Sub ZahlenDividieren
myDoc = stardesktop.currentcomponent
oForm = DialogLibraries.Standard.Dialog1

Zahl1=oDialog1.GetControl("NumericField1").value
Zahl2=oDialog1.GetControl("NumericField2").value

Ergebnis = Zahl1 / Zahl2

oDialog1.GetControl("Label3").Text=Ergebnis
End Sub[/code]

Viel Erfolg

Jürgen

in einem Dialogfenster soll eine einfache Division zweier Zahlen (zwei numerische Eingabefelder in selbigen Dialog) stattfinden. Das Ergebnis soll in dem Dialog in ein drittes per Schalter erscheinen.
Ich stoße dabei als Anfänger aber an meine Grenzen, kann mir jemand bei der Makroerstellung helfen?

Danke