OpenOffice.info

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).LineSty...

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: EA...

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) ...

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)