der u.g. Code funktioniert, nur ist leider die Performance nicht so toll.
Daher hoffe ich, dass das mit Array besser ginge, zumal dieser nicht der einzigste seiner Art ist
Vielleicht findet ja einer Zeit.
Vielen Dank.
Code: Alles auswählen
Sub fuellen_Rechnung
odoc = ThisComponent
oStammSheet = ThisComponent.sheets.getByName("Rechnungen")
With oStammSheet ' Letzte Zeile der Spalte AI im 2. Tabellenblatt ermitteln
x = .Columns("34:45").queryEmptyCells()
iLetzteZeile = x(x.Count-1).RangeAddress.StartRow +1
End With
'Zellbereich AI:AT
mycell = oStammSheet.getCellRangeByName("AI" & iLetzteZeile )
mycell.FormulaLocal = "=Zziel"
mycell = oStammSheet.getCellRangeByName("AJ" & iLetzteZeile )
mycell.FormulaLocal = "=mdat1"
mycell = oStammSheet.getCellRangeByName("AK" & iLetzteZeile )
mycell.FormulaLocal = "=Maz1"
mycell = oStammSheet.getCellRangeByName("AL" & iLetzteZeile )
mycell.FormulaLocal = "=mdat2"
mycell = oStammSheet.getCellRangeByName("AM" & iLetzteZeile )
mycell.FormulaLocal = "=Maz2"
mycell = oStammSheet.getCellRangeByName("AN" & iLetzteZeile )
mycell.FormulaLocal = "=mdat3"
mycell = oStammSheet.getCellRangeByName("AO" & iLetzteZeile )
mycell.FormulaLocal = "=Maz3"
mycell = oStammSheet.getCellRangeByName("AP" & iLetzteZeile )
mycell.FormulaLocal = "=Zinstage"
mycell = oStammSheet.getCellRangeByName("AQ" & iLetzteZeile )
mycell.FormulaLocal = "=Zinssatz"
mycell = oStammSheet.getCellRangeByName("AR" & iLetzteZeile )
mycell.FormulaLocal = "=Zinsen"
mycell = oStammSheet.getCellRangeByName("AS" & iLetzteZeile )
mycell.FormulaLocal = "=Mahngebühr"
mycell = oStammSheet.getCellRangeByName("AT" & iLetzteZeile )
mycell.FormulaLocal = "=Anrede"
End Sub