OpenOffice.info

Danke, da wäre ich nie drauf gekommen.

PS: auch mit
tmp = parameter.Value
funktioniert es nicht.

Das mit verschieden Formaten ist zwar hässlich aber das kann ich noch verkaufen.

Ich konnte die if-Abfrage
if typename(parameter)="Range" then
verwenden.

Jetzt knallt es aber mit

if vartype(parameter)=9 then
' msgbox(typename(parameter))
dim tmp as integer
tmp = parameter.Value2
End Ifnem ...

Die Zeile
' parameter = parameter.Value
ist eigentlich auskommentiert.

Ich will, dass man die Funktion sowohl mit einer Zahl oder mit der Angabe einer Zelle funktioniert. Es soll sowohl für Excel als auch für LibreOffice funktionieren.

Ich konnte den Code eindampfen:

Function meineFunktion(parameter) As Integer

If TypeOf parameter Is Range Then
' parameter = parameter.Value
End If

meineFunktion = 42

End Function

Wenn ich die Funktion mit einem Range-Object aufrufe, funktioniert er. Bei einer Zahl aber nicht.

Ich habe ein relativ einfache Makros mit Excel geschrieben. Wenn ich es mit LibreOffice öffne und als ods abspeichere und dann wieder öffne, kommt die folgende Meldung hoch:

BASIC-Laufzeitfehler.
'91'
Objektvariable nicht belegt.

Es gibt keine weitere Information bzgl. des Problems. Wenn ich die ...

Nachtrag:

Das Programm wird ohne Fehlermeldung ausgeführt, löscht aber keinen Rahmen.

edit (Modaration: mikeleb): Thema von Calc nach Makros und allgemeine Programmierung verschoben

Der untere Code funktioniert nicht. Die anderen Rahmen funktionieren.

Sub test()
Range("I18").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle ...

Irgendwie hat es sich beruhigt und es funktioniert. Mir geht es auch im das Prinzip. Ich habe nun versucht, in Basic die Funktion EASTERSUNDAY aufzurufen. Aber es kommt ein paar mal die Fehlermeldung

BASIC-Laufzeitfehler.
'35'
Prozedur Sub oder Function nicht definiert.
Zusätzliche Informationen ...

Function osterSonntag(myDate As Long) As Long

Dim myYear
myYear = Year(myDate)

Dim tmp As Long

If Minute(myYear / 38) / 2 + 55 < 60 Then
tmp = 1
Else
tmp = 0
End If

osterSonntag = _
WorksheetFunction.Round((CDate(Day(Minute(myYear / 38) / 2 + 55) + _
tmp & ".4." & myYear) / 7), 0) * 7 - 6 ...

edit (Modaration: mikeleb): Thema von Calc nach Makros und allgemeine Programmierung verschoben

Ich versuche eine Excel-Datei zu LibreOffice zu migrieren.

Bei den folgenden Zeilen erscheint die Fehlermeldung "basic-Laufzeitfehler 449 Arguent ist nicht optional.

Dim myYear
myYear = Year(myDate)