von Tim1202 » So, 22.05.2005 10:34
Hallo nochmal!
Um ganz ehrlich zu sein, hab ich den Code erst heut so richtig testen können (wie immer keine Zeit), und er hat leider nicht funktioniert!
Denn wie ich mittlerweise herausgefunden habe erwartet die
.Sheet Eigenschaft eine Integer-Zahl. Die
.name Eigenschaft liefert aber den Namen als String.
Hiermit funktioniert es jezt:
Code: Alles auswählen
oSheet = ThisComponent.CurrentController.ActiveSheet
Dim oZellbereichsAdresse as new com.sun.star.table.CellRangeAddress
oZellbereichsAdresse.Sheet = oSheet.RangeAddress.Sheet
oZellbereichsAdresse.StartColumn = 0
oZellbereichsAdresse.StartRow = vRow
oZellbereichsAdresse.EndColumn = 4
oZellbereichsAdresse.EndRow = vRow
oSheet.removeRange(oZellbereichsAdresse, com.sun.star.sheet.CellDeleteMode.UP)
Mfg
Timon
Hallo nochmal!
Um ganz ehrlich zu sein, hab ich den Code erst heut so richtig testen können (wie immer keine Zeit), und er hat leider nicht funktioniert! :cry:
Denn wie ich mittlerweise herausgefunden habe erwartet die [b].Sheet [/b]Eigenschaft eine Integer-Zahl. Die [b].name[/b] Eigenschaft liefert aber den Namen als String.
Hiermit funktioniert es jezt: :D
[code]oSheet = ThisComponent.CurrentController.ActiveSheet
Dim oZellbereichsAdresse as new com.sun.star.table.CellRangeAddress
oZellbereichsAdresse.Sheet = oSheet.RangeAddress.Sheet
oZellbereichsAdresse.StartColumn = 0
oZellbereichsAdresse.StartRow = vRow
oZellbereichsAdresse.EndColumn = 4
oZellbereichsAdresse.EndRow = vRow
oSheet.removeRange(oZellbereichsAdresse, com.sun.star.sheet.CellDeleteMode.UP)[/code]
Mfg
Timon