ich habe versucht eine Excel Makrofunktion nach openoffice basic zu transportieren und anzupassen.
Leider funktioniert das nicht, kann mir jemand sagen wo der Fehler ist?
Option Explicit
Dim cSteuerlast As Currency
Dim oGrenzwerteAus As Object
Dim oSteuersaetzeAus as Object
Dim oBlattAus As Object
Dim oZelle as Object
Dim cValuta1 As Currency, cValuta2 As Currency
Function SpitzenSteuersatzAus(iJahr As Integer) As Single
Dim iBeginn As Integer,iZaehler as integer
oBlattAus = ThisComponent.Sheets.getByName("AusSteuer")
oSteuersaetzeAus = oBlattAus.getCellRangeByName("SaetzeAus")
iBeginn = oBlattAus.getCellRangeByName("BeginnAus").value
msgbox iBeginn
Select Case iJahr
Case Is < 2005
iZaehler = iJahr - iBeginn
msgbox iZaehler
oZelle = oSteuersaetzeAus.getCellByPosition(9,4)
SpitzenSteuersatzAus = oZelle.value
Case Is >= 2005
oZelle = oSteuersaetzeAus.getCellByPosition(iJahr - iBeginn, 3)
SpitzenSteuersatzAus = oZelle.value
End Select
Set oBlattAus = Nothing
Set oSteuersaetzeAus = Nothing
End Function
Leider funktioniert das nicht, kann mir jemand sagen wo der Fehler ist?
Wenn Du uns mitteilst was nicht funktioniert - vielleicht.
Bei mir funktioniert das Ganze zunächst problemlos, was natürlich davon abhängig ist das ich in der Funktion gegebene Randbedingungen korrekt beachte, also beispielsweise den benannten Bereich "BeginnAus" mit nur einer Zelle definiere.
habe den Fehler endlich gefunden, ich denke typischer Umsteigerfehler.
Ein Zellbereich wird in Excel mittels (row, column) ausgelesen, in calc mit (Column,row).