[GELÖST] Formel PER MAKRO nach rechts "ziehen"

[rob41]

Hallo,
is wohl ne Dummy Frage, aber ich find einfach nix.
Ich will PER MAKRO eine Formel nach rechts "ziehen"
in A4 steht:

Code: Alles auswählen

=SUMME(A1:A3)

in B4 soll stehen:

Code: Alles auswählen

=SUMME(B1:B3)

Bin für jeden Tip dankbar.

Gruß, Rob

[Axel Richter]

Hallo,

Code: Alles auswählen

oDoc = thiscomponent
oSheet = oDoc.Sheets(0)
oRange = oSheet.getCellRangeByName("A4:D4")
oRange.fillAuto(com.sun.star.sheet.FillDirection.TO_RIGHT, 1) 'autofüllt A4 in 1-er Schritten bis D4 nach rechts aus

viele Grüße

Axel

[Karolus]

Hallo

Mit :

Code: Alles auswählen

Sub Main
thisComponent.CurrentSelection.fillAuto(1,1)
End Sub

wird ein selektierter Bereich von links nach rechts "auto-gefüllt"

Karo

[rob41]

Hallo + vielen Dank für eure Antworten !
das klappt prima. etwas fehlt mir noch:

Code: Alles auswählen

	addr02 = "(C" & sRou + 1 & ":E" & sRou + 1 & ")"
	msgbox addr02				'Ausgabe OK
	oRange = oSheet_Buchf.getCellRangeByName("C19:E19")		'klappt
	oRange = oSheet_Buchf.getCellRangeByName(addr02)		'klappt nicht
	oRange.fillAuto(1,1)

Wie kann ich oRange parametrisiert befüllen ?

Danke !
Rob

[Karolus]

Hallo

Du übergibst (C19:E19) als Adressnamen, du möchtest die Klammern weglassen.

Benutze besser .getCellRangeByPosition( iStartspalte, iStartzeile, iEndspalte, iEndzeile )

Karo

[rob41]

Hallo,

klasse, genau das hat mir noch gefehlt.
noch mal DANKE euch beiden für die sehr guten Tips !

Gruß, Rob