Seite 1 von 1
[GELÖST] Formel PER MAKRO nach rechts "ziehen"
Verfasst: So, 10.06.2012 15:09
von rob41
Hallo,
is wohl ne Dummy Frage, aber ich find einfach nix.
Ich will PER MAKRO eine Formel nach rechts "ziehen"
in A4 steht:
in B4 soll stehen:
Bin für jeden Tip dankbar.
Gruß, Rob
Re: Formel PER MAKRO nach rechts "ziehen"
Verfasst: So, 10.06.2012 17:08
von 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
Re: Formel PER MAKRO nach rechts "ziehen"
Verfasst: So, 10.06.2012 17:18
von 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
Re: Formel PER MAKRO nach rechts "ziehen"
Verfasst: So, 10.06.2012 21:46
von 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
Re: Formel PER MAKRO nach rechts "ziehen"
Verfasst: So, 10.06.2012 23:25
von Karolus
Hallo
Du übergibst (C19:E19) als Adressnamen, du möchtest die Klammern weglassen.
Benutze besser .getCellRangeByPosition( iStartspalte, iStartzeile, iEndspalte, iEndzeile )
Karo
Re: Formel PER MAKRO nach rechts "ziehen"
Verfasst: Mo, 11.06.2012 10:23
von rob41
Hallo,
klasse, genau das hat mir noch gefehlt.
noch mal DANKE euch beiden für die sehr guten Tips !
Gruß, Rob