OpenOffice.info

Hallo Zusammen,

habe den Fehler endlich gefunden, ich denke typischer Umsteigerfehler.
Ein Zellbereich wird in Excel mittels (row, column) ausgelesen, in calc mit (Column,row).

Nach Umstellung läuft die Funktion problemlos.

Grüße

Berthold

Hallo Stephan,

die Funktion gibt einen Fehlerwert zurück #Wert!

da der Fehler scheinbar ein nicht offfensichtliches Detailproblem darstellt, hier die Datei.

Grüße

Berthold

[quote]Leider funktioniert das nicht, kann mir jemand sagen wo der Fehler ist?[/quote]

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.



Gruß
Stephan

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

Hallo Zusammen,

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?

[code]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[/code]

Danke und Grüße

BGrabe