OpenOffice.info

Ich habe Probleme folgende Makros in OOCalc lauffähig zu bekommen:

Hier der originale VBA Code.


Public Function interlin(x1, y1, x2, y2, x)
'Lineare Interpolation
interlin = (x - x1) * (y2 - y1) / (x2 - x1) + y1

End Function

Public Function pollan(Baumart, BHD, Hoehe)
'Berechnung der Formzahl nach Pollanschütz für FI, TA, KI, LÄ, BU, EI

ba = Left$(UCase$(Baumart), 2)
d = BHD / 10
h = Hoehe * 10

Select Case ba
Case "FI"
b1 = 0.4682
b2 = -0.01392
b3 = -28.213
b4 = 0.3747
b5 = -0.2887
b6 = 28.27
b7 = 0
Case "TA"
b1 = 0.5802
b2 = -0.03074
b3 = -17.15
b4 = 0.0899
b5 = -0.0806
b6 = 19.66
b7 = -2.458
Case "LÄ"
b1 = 0.6094
b2 = -0.04557
b3 = -18.663
b4 = -0.2487
b5 = -0.1266
b6 = 36.98
b7 = -14.204
Case "KI"
b1 = 0.4359
b2 = -0.01491
b3 = 5.2109
b4 = 0
b5 = 0.287
b6 = 0
b7 = 0
Case "BU"
b1 = 0.6863
b2 = -0.03715
b3 = -31.067
b4 = -0.3863
b5 = 0.2195
b6 = 49.61
b7 = -22.372
Case "EI"
b1 = 0.1156
b2 = 0
b3 = 69.996
b4 = 1.2032
b5 = -0.9304
b6 = -215.76
b7 = 168.477


Case Else
MsgBox "Achtung: Baumart nicht bekannt! mfg Nachti!"

End Select

pollan = b1 + b2 * (Log(d)) ^ 2 + b3 / h + b4 / d + b5 / (d ^ 2) + b6 / (d * h) + b7 / (d ^ 2 * h)

End Function



Danke im Vorhinein.

mfg Michael

Ich habe Probleme folgende Makros in OOCalc lauffähig zu bekommen:

Und wo konkret?

Es ist selten aber es kommt vor das VBA und StarBasic völlig gleich sind, bei DEinen zwei Funktionen ist das der Fall. Ich sehe nichts was in OOo nicht laufen sollte wenn ich den geposteten Code betrachte.



Gruß
Stephan

Wenn ich das Makro bearbeiten will, steht in jeder Zeile "Rem" am Anfang. Nur weglöschen funktioniert nicht.

unter Extras-Optionen-Laden/Speichern-VBA-Kompatibilität muß das Laden von VBA-Code zum Bearbeiten aktiviert sein.

Zum Speichern von so bearbeitetem Code siehe Online-Hilfe von OOo.


Gruß
Stephan

Ich habe die Optionen genau so eingestellt, aber leider kein Erfolg.

Hier nochmal der Code den OO anzeigt wenn ich die Excel Datei öffne. Vielleicht kannst du mir so besser helfen.

Sub ekfe
Rem
Rem Public Function interlin(x1, y1, x2, y2, x)
Rem 'Lineare Interpolation
Rem interlin = (x - x1) * (y2 - y1) / (x2 - x1) + y1
Rem
Rem End Function
Rem
Rem Public Function pollan(Baumart, BHD, Hoehe)
Rem 'Berechnung der Formzahl nach Pollanschütz für FI, TA, KI, LÄ, BU, EI
Rem
Rem ba = Left$(UCase$(Baumart), 2)
Rem d = BHD / 10
Rem h = Hoehe * 10
Rem
Rem Select Case ba
Rem Case "FI"
Rem b1 = 0.4682
Rem b2 = -0.01392
Rem b3 = -28.213
Rem b4 = 0.3747
Rem b5 = -0.2887
Rem b6 = 28.27
Rem b7 = 0
Rem Case "TA"
Rem b1 = 0.5802
Rem b2 = -0.03074
Rem b3 = -17.15
Rem b4 = 0.0899
Rem b5 = -0.0806
Rem b6 = 19.66
Rem b7 = -2.458
Rem Case "LÄ"
Rem b1 = 0.6094
Rem b2 = -0.04557
Rem b3 = -18.663
Rem b4 = -0.2487
Rem b5 = 0.1266
Rem b6 = 36.98
Rem b7 = -14.204
Rem Case "KI"
Rem b1 = 0.4359
Rem b2 = -0.01491
Rem b3 = 5.2109
Rem b4 = 0
Rem b5 = 0.0287
Rem b6 = 0
Rem b7 = 0
Rem Case "BU"
Rem b1 = 0.6863
Rem b2 = -0.03715
Rem b3 = -31.067
Rem b4 = -0.3863
Rem b5 = 0.2195
Rem b6 = 49.61
Rem b7 = -22.372
Rem Case "EI"
Rem b1 = 0.1156
Rem b2 = 0
Rem b3 = 65.996
Rem b4 = 1.2032
Rem b5 = -0.9304
Rem b6 = -215.76
Rem b7 = 168.477
Rem
Rem
Rem Case Else
Rem MsgBox "Achtung: Baumart nicht bekannt! mfg Nachti!"
Rem
Rem End Select
Rem
Rem pollan = b1 + b2 * (Log(d)) ^ 2 + b3 / h + b4 / d + b5 / (d ^ 2) + b6 / (d * h) + b7 / (d ^ 2 * h)
Rem
Rem End Function
Rem
End Sub

Danke für die Hilfe!

mfg Michael




P.s: OpenOffice ist echt toll. Und mit einem solche Forum,wo man so schnell Antwort bekommt, nehme ich gerne manche Unannehmlichkeiten in Kauf beim "Umstieg". Danke.

Vielleicht kannst du mir so besser helfen.

Nein.

Dann verstehe ich Dein Problem nicht, denn das hieß doch ausschließlich das sich die "REM" nicht löschen lassen. Oder was sonst?


Gruß
Stephan