x/y - Werte in einer Tabelle ausgeben

[Karolus]

Hallo

Code: Alles auswählen

Sub Wertetabelle

   'f(x) = (0.5*x)-2

	Dim x as Double 'X-Wert
	Dim y as Double 'Y-Wert
	Dim a as Double 'Wertebereich start
	Dim b as Double 'Wertebereich ende
	Dim c as Double 'Wertebereich step
	Dim Text1 as String   
   
	a = inputbox("Wertebereich start?")
	b = inputbox("Wertebereich ende?")
	c = inputbox("Wertebereich step?")
      
	If a >= b then            'Wertebereich start > ende
		print("error")
	else
		size = int( (b - a) / c)
		dim xyarray( size )
		For x = a to b step c  
			y = (0.5*x)-2
			xyarray(i) = array(x,y)
       i = i + 1
		Next
		'oziel muss die Dimensionen von xyarray haben hier A1 bis "B & (size +1)"
		'.getCellrangeByPosition( erste Spalte , erste Zeile , letzte Spalte, letzte Zeile )
		oZiel = thiscomponent.sheets(0).getCellrangeByPosition(0,0,1,size)
		oZiel.setdataarray(xyarray())
	end if
End Sub

Gruß Karo

[Karolus]

Hallo

hab auch noch probleme mit dem "Oziel." , weil er mir immer nur A1 und B1 auswirft anstatt alle steps nachfolgend!

Ich hatte die Zeile

Code: Alles auswählen

i = i +1 

nachträglich hinzugefügt, ist die in deinem Testmakro dabei?

Code: Alles auswählen

size = int( (b - a) / c)

berechnet die Grösse des Datenarrays ( Ganzahl aus ((b-a)/c)

Code: Alles auswählen

xyarray(i) = array(x,y)

schreibt im 'for next Block' ein Array der aktuellen Werte von x und y in die Position i

Code: Alles auswählen

oZiel = thiscomponent.sheets(0).getCellrangeByPosition(0,0,1,size)

hier wird ein Zellbereich mit passender Grösse definiert.

Gruß Karo

[Karolus]

Hallo
oZiel = thiscomponent.sheets(0).getCellrangeByPosition( 0 , 0 , 1 , size ) → ab A1
oZiel = thiscomponent.sheets(0).getCellrangeByPosition( 0 , 1 , 1 , size+1 ) → ab A2
oZiel = thiscomponent.sheets(0).getCellrangeByPosition( 2 , 0 , 3 , size ) → ab C1

allgemein:
...getCellRangeByPosition( startspalte , startzeile , startspalte +1 , startzeile + size )

Gruß Karo